program string_16;
uses crt;
var a,b,c : string;
i : longint;
begin
clrscr;
write('Введите слово:  ');readln(a);
b:='';
for i:=1 to length(a) do
b:=a[i]+b;
if a=b then
write('перевертыш')
else
write('не перевертыш');
readln;
end.