Пользователь вводит слово,определить является ли оно перевертышем Написать программу в...

Question

Пользователь вводит слово,определить является ли оно перевертышем
Написать программу в Pascal

Answer 1

Var
S1,S2:string;
i:integer;
Begin
Write('Введите слово: ');
ReadLn(S1);
For i:= 1 to Length(S1) do
    S2:=S1[i]+S2;
if S1=S2 then WriteLn('Да')
else WriteLn('Нет');
End.