Дано слово. Проверить является ли оно ''перевертышем'' (перевертышем называется слово, читаемое одинакого как с начала так и с конца),

program zz1;

var s, s1:string; / / задаем переменные строкового типа

i:integer; / / задаем переменную целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры строку

for i:=length (s) downto 1 do / / организуем цикл, в котором переберем все символы от последнего до первого

begin

s1:=s1 + s[i]; / / формируем новую строку

end;

if s1 = s / / проверяем условие, если две строки равны, то

then write (' исходная строка является перевертышем ') / / выводим один ответ

else write (' исходная строка не является перевертышем '); / / иначе, выводим другой ответ

end.