var
i,kek,ch:integer;
gl,sog,ima:string;
a,b,c:string;
stro,ka:string;
begin
gl:='аоуыиэе';
sog:='цкнгшзхфвпрлджчсмтб';
repeat
randomize;
kek:=random(4)+2;
for i:=1 to kek do begin;

ch:=random(2)+1;
if ch=1 then begin;
a:=Copy(sog, random(20), 1);
b:=Copy(gl, random(8), 1);
c:=Copy(sog, random(20), 1);
ima:=Concat(ima,a,b,c);
end;
if ch=2 then begin;
a:=Copy(gl, random(8), 1);
b:=Copy(sog, random(20), 1);
ima:=Concat(ima,a,b);
end;
if ch=3 then begin;
a:=Copy(sog, random(20), 1);
b:=Copy(gl, random(8), 1);
ima:=Concat(ima,a,b);
end;

end;
write(uppercase(copy(ima,1,1)),copy(ima,2,200));

ima:='';
readln;
until i = 9
end.