Bai 1b bai thuc hanh 5

BAI 1: Cau b


var i,x: byte;
a: string;
palin: boolean;
begin
write(`Nhap vao xau: `); readln(a);
x:=length(a);
palin:=true;
for i:=1 to x div 2 do
if a[i]<>a[x-i+1] then palin:=false;
if palin then writeln(`Xau la palindrome`)
else writeln(`Xau khong la palindrome`);
readln
end.