Verified answer

//PascalABC.NET v3.3 1633

var str: string;

begin

write('Введите слово: ');

readln(str);

if ReverseString(str) = str then

 writeln('Слово является палиндромом')

else

 writeln('Слово не является палиндромом');

end.