var
  num, temp, reverse, last: integer;

begin
  Write('Введи число: ', #10);
  readln(num);temp := num;
  while (num <> 0) do
  begin
    last := num mod 10;
    reverse := reverse * 10 + last; 
    num := num div 10; 
  end;
  if temp = reverse then write('Число является перевёртышем.', #10) else write('Число не является перевёртышем.', #10);
end.