{$MODE OBJFPC}
Const Vowels  = ['a', 'e', 'i', 'o', 'u', 'y'];
      Letters = 'qwertyuiopasdfghjklzxcvbnm';

Function RandomChar: Char;
Begin
 Result := Letters[Random(Length(Letters)-1)+1]; 
End;

Function RandName(Leng: Integer): String;
Var I   : Integer;
    P, C: Char;
    Len : Integer;
Begin
 Result := '';
 P      := #0;
 For I := 1 To Leng Do
 Begin
  Result += RandomChar;
  Len := Length(Result);
  C   := Result[Len];
  While (P in Vowels) and (Result[Len] in Vowels) Do
   Result[Len] := RandomChar;
  P := C;
 End;
End;

Var I: Integer;
Begin
 Randomize;
 For I := 1 To 6 Do
  Writeln(RandName(6));
End.