Nhập vào từ bàn phím một xâu. Kiểm tra xâu đó có phải là xâu đối xứng hay không. Xâu đối xứng có tính chất: đọc nó từ phải sang trái cũng thu được kết quả giống như đọc trái sang phải (còn đư

program vd2;

uses crt;

var

          i,x:byte;

          a,p:string;

begin

          clrscr;

          write(‘nhapxau’);

          readln(a);

          x:=length(a);

          p:=’’;

          for i:=x downto 1 do

          p:=p+a[i];

          if a=p then

                    write(‘xau la palindrome’)

else

                    write(‘xau khong phai la palindrome’);

          readkey;

end.