var
i,randar,kek,ch,beb,bik,tire,slog:integer;
gl,sog,ima,predl,gl1,sog1,sogi:string;
a,b,c:string;

begin
slog:= 0;
beb:= 0;
ima:= '';
gl:='аоуыиэе';
gl1:='яюиеё';
sog:='цкнгшзхфвпрлдчсмтб';
sog1:='цкншзхфвпрдчсмтб';
sogi:='нгзфвпрлдсмтб';
slog:=0;
i:=0;


randar:=random(5)+3;
repeat
kek:=random(3)+2;
while slog<kek do begin;

ch:=random(5)+1;

//беб (при ь);
if beb=1 then begin;
bik:=random(5)+1;

if bik=1 then begin;
a:=Copy(sog1, random(length(sog1)) + 1, 1);
b:=Copy(gl, random(length(gl1)) + 1, 1);
c:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,a,b,c);
slog:=slog+1;
beb:=2;
end;

if bik=2 then begin;
a:=Copy(gl1, random(length(gl1)) + 1, 1);
b:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,a,b);
slog:=slog+1;
beb:=2;
end;

if bik=3 then begin;
a:=Copy(sog1, random(length(sog1)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
ima:=Concat(ima,a,b);
slog:=slog+1;
beb:=2;
end;

if bik=4 then begin;
a:=Copy(gl1, random(length(gl1)) + 1, 1);
b:=Copy(sogi, random(length(sogi)) + 1, 1);
ima:=Concat(ima,a,b,'ь');
slog:=slog+1;
beb:=3;
end;
//
//bik тире
if bik=5 then begin;
tire:=random(4)+1;

if (tire=1) then begin;
a:=Copy(sog, random(length(sog)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
c:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,'-',a,b,c);
slog:=slog+1;
beb:=2;
end;

if (tire=2) then begin;
a:=Copy(gl, random(length(gl)) + 1, 1);
b:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,'-',a,b);
slog:=slog+1;
beb:=2;
end;

if (tire=3) then begin;
a:=Copy(sog, random(length(sog)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
ima:=Concat(ima,'-',a,b);
slog:=slog+1;
beb:=2;
end;

if (tire=4) then begin;
a:=Copy(gl, random(length(gl)) + 1, 1);
b:=Copy(sogi, random(length(sogi)) + 1, 1);
ima:=Concat(ima,'-',a,b,'ь');
slog:=slog+1;
beb:=3;
end;
end;
//конец bik тире
end;
//кон беб

if beb = 0 then begin
if ch=1 then begin;
a:=Copy(sog, random(length(sog)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
c:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,a,b,c);
slog:=slog+1;
end;
if ch=2 then begin;
a:=Copy(gl, random(length(gl)) + 1, 1);
b:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,a,b);
slog:=slog+1;
end;
if ch=3 then begin;
a:=Copy(sog, random(length(sog)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
ima:=Concat(ima,a,b);
slog:=slog+1;
end;
if ch=4 then begin;
a:=Copy(gl, random(length(gl)) + 1, 1);
b:=Copy(sogi, random(length(sogi)) + 1, 1);
ima:=Concat(ima,a,b,'ь');
slog:=slog+1;
beb:=1;
end;

//тире
if ch=5 then begin;

if slog>=1 then begin;
tire:=random(4)+1;
if (tire=1) then begin;
a:=Copy(sog, random(length(sog)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
c:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,'-',a,b,c);
slog:=slog+1;

end;
if tire=2 then begin;
a:=Copy(gl, random(length(gl)) + 1, 1);
b:=Copy(sog, random(length(sog)) + 1, 1);
ima:=Concat(ima,'-',a,b);
slog:=slog+1;
end;
if tire=3 then begin;
a:=Copy(sog, random(length(sog)) + 1, 1);
b:=Copy(gl, random(length(gl)) + 1, 1);
ima:=Concat(ima,'-',a,b);
slog:=slog+1;
end;
if tire=4 then begin;
a:=Copy(gl, random(length(gl)) + 1, 1);
b:=Copy(sogi, random(length(sogi)) + 1, 1);
c:='ь';
ima:=Concat(ima,'-',a,b,c);
slog:=slog+1;
beb:=1;
end;
end;

end;
//тире
end;

if beb = 2 then beb:=0;
if beb = 3 then beb:=1;

end;
//кон основы

predl:=Concat(predl,ima,' ');

slog:=0;
beb:=0;
ima:='';
i:=i+1;
until i = randar;
write(uppercase(copy(predl, 1, 1)), copy(predl, 2, (length(predl)-2)),'.');
predl:='';


end.