// PascalABC.NET 3.3, сборка 1542 от 05.10.2017// Внимание! Если программа не работает, обновите версию!begin var n:=ReadInteger('Введите натуральное число: ').ToString; if n=ReverseString(n) then Writeln('Перевертыш') else Writeln('не перевертыш')end.ПримерВведите натуральное число: 3527253ПеревертышВведите натуральное число: 135233не перевертыш