TYPE
 ChSet=Set of Char;
VAR
 Ch_L,Ch_C,Ch_LC,Ch_S:ChSet;
 f_in,f_out:TEXT;
 S,S1:String;
 Ch:Char;
 i:Byte;
 b:Boolean;

BEGIN
 Ch_L:=['A'..'Z']+['a'..'z'];
 Ch_C:=['А'..'Я']+['а'..'я'];
 Ch_LC:=['A','B','C','E','H','K','M','O','P','T','X',
         'a','c','e','o','p','x','y',
         'А','В','Е','К','М','Н','О','Р','С','Т','Х',
         'а','е','о','р','с','у','х'];
 Ch_S:=[' ',',','.','?','!',':',';','"','-',Chr(13)];
 Assign(f_in,'D:\txt.txt');
 ReSet(f_in);
 Assign(f_out,'D:\res.txt');
 ReWrite(f_out);
 S1:='******************************';
 Repeat
  Read(f_in,Ch);
  If not(Ch in Ch_S) then
   begin
    i:=1;
    S1[1]:=Ch;
    repeat
     Read(f_in,Ch);
     Inc(i);
     If not(Ch in Ch_S) then S1[i]:=Ch;
    until (Ch in Ch_S) or (EoF(f_in));
    If not(Eof(f_in)) then
     S:=Copy(S1,1,i-1)
    else
     S:=Copy(S1,1,i);
    b:=true;
    i:=0;
    repeat
     Inc(i);
     if not(S[i] in Ch_LC) then b:=false;
    until (b=false) or (i=Length(S));
    If b then Writeln(f_out,S+' - Latin & Cyrillic')
    else
    If S[1] in Ch_L then Writeln(f_out,S+' - Latin')
    else
    If S[1] in Ch_C then Writeln(f_out,S+' - Cyrillic');
    S1:='******************************';
   end;
 Until EoF(f_in);
 Close(f_in);
 Close(f_out);
END.