Viết chương trình nhập vào 1 xâu kí tự từ bàn phím. a) Tìm xâu đảo ngược của xâu đó. b) Nhập xâu S, nếu xâu vừa nhập không phải xâu đối xứng thì thêm vào bên trái xâu các kí tự sao cho xâu vừa nhập đó trở thành xâu đối xứng. VD: Xâu "abcded" --> "abcdedcba" Pascal nha

a) 

var s:string;

     i:longint;

begin

write('Nhap xau: '); readln(s);

for i:=length(s) to 1 do

write(s[i]);

readln;

end.

b)

var s:string;

     i:longint;

begin

write('Nhap xau: '); readln(s);

for i:=length(s) to 1 do

st:=st+s[i];

if s=st then write('La xau doi xung') else 

write('Xau doi xung la: ',s+st);

readln;

end.