Số đối xứng - Lê Quang Tuấn

program chuoidoixung;
uses crt;
var st:string;
    i,l:integer;
    kt:boolean;
begin
     clrscr;
     write('Nhap chuoi bat ki: '); readln(st);
     kt:=true; l:=length(st);
     for i:=1 to length(st)div 2 do
         if st[i]<>st[l-i+1] then kt:=false;
     if kt then writeln('Doi xung!') else writeln('Khong doi xung!');
     readln
end.