Ответ:

Если нужно будет объяснение, напишешь в комментарии.

var x,y,z:integer;

s:string;

begin

 readln (z);

 x:=z;

 while x>0 do begin

   s:=s+inttostr(x mod 10);

   x:=x div 10;

   end;

 if inttostr(z)=s then

   writeln ('Перевертыш')

 else

   writeln ('Нет');

end.