var slovo,reverse:string;var i:integer;begin write('slovo:'); readln(slovo); for i:=length(slovo) downto 1 do reverse:=reverse+slovo[i]; if(slovo=reverse) then writeln('perevertish') else writeln('ne perevertish'); readln;end.
var slovo,reverse:string;
var i:integer;
begin
write('slovo:');
readln(slovo);
for i:=length(slovo) downto 1 do
reverse:=reverse+slovo[i];
if(slovo=reverse) then writeln('perevertish')
else writeln('ne perevertish');
readln;
end.