//PascalABC.NET v3.3 1633
var str: string;
begin
write('Введите слово: ');
readln(str);
if ReverseString(str) = str then
writeln('Слово является палиндромом')
else
writeln('Слово не является палиндромом');
end.
//PascalABC.NET v3.3 1633
var str: string;
begin
write('Введите слово: ');
readln(str);
if ReverseString(str) = str then
writeln('Слово является палиндромом')
else
writeln('Слово не является палиндромом');
end.