Составьте программу, выясняющую, является ли данное слово перевертышем (так называются слова, читвющиеся одинаково слева направо и справа налево, например: топот, шалаш)

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.