var st,s:string; i:byte;  kt:boolean;

begin

 write('nhap xau'); readln(st);

kt:=true; i:=1; s:='';

while (kt=true)and(i<=(length(st) div 2)) do

 begin

 if st[i]<>st[length(st)-i+1] then kt:=false;

i:=i+1; end;

if kt then write('phai') else write('ko');

for i:=1 to length(st) do s:=s+ upcase(st[i]);

write('xau in hoa ',s);

readln  end.

var s: string;

       i, kt: byte;

Begin

   Write('nhap xau: '); readln(s);

   Kt:=1;

   For i:=1 to (length(s) div 2) do

         If s[i] <> s[length(s) - i + 1] 

               Then kt:=0;

   If kt=1 then write('la xau doi xung')

   Else write('khong phai xau doi xung');

   For i:=1 to length(s) do 

          s[i]:=upcase(s[i]);

   Readln

End.