uses crt; var i,kt:byte; s:string; begin clrscr; write('Nhap vao 1 xau: ');readln(s); kt:=0; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then kt:=1; if kt=0 then writeln('Day la xau doi xung') else writeln('Day khong la xau doi xung'); readln end.
