{ Яв-ся ли перевёртышем число. }

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