uses crt;
var f1, f2: text;
    s: string;
    i, size: longint;
    isPalindrome: boolean;

begin
    assign(f1, 'vao.txt'); reset(f1);
    assign(f2, 'ra.txt'); rewrite(f2);

    readln(f1, s);

    isPalindrome:=true;
    size:=length(s) div 2;

    for i:=1 to size do
        if s[i] <> s[length(s) - i + 1] then isPalindrome:=false;

    if isPalindrome then writeln(f2, s, ' la xau doi xung')
    else writeln(f2, s, ' khong la xau doi xung');

    close(f1);
    close(f2);
end.

uses crt;

var f1,f2:text;

a,p:string;

x,i:integer;

begin

clrscr;

assign(f1,'vao.txt'); reset(f1);

assign(f2,'ra.txt'); rewrite(f2);

readln(f1,a);

x:=length(a);

p:='';

for i:=x downto 1 do p:=p+a[i];

if a=p then write(f2,a,' la xau doi xung') else write(f2,a,' khong phai la xau doi xung');

close(f1);

close(f2);

end.