Составить программу определения, является ли слово "перевертышем"
Например, "шалаш", "казак" - перевертыш

Код:
var s1,s2:string;
    i:integer;
begin
    readln(s1); s2:='';
    for i:=length(s1) downto 1 do begin
       s2:=s2+s1[i];
    end;
    if s1=s2 then writeln(s1, ' - перевертыш')
             else  writeln(s1, ' - не перевертыш');
end.