Question

написать программу которая подтверждает числа полиморфы

Answer 1

//PascalABC.NET 3.1 сборка 1200
begin
  var n := ReadInteger('n =');
  if n < 0 then begin
    writeln('Число отризательное и не может быть перевертышем');
    Halt;
  end;
 
  var s := n.ToString();
  if ReverseString(s) = s then
    writeln('Перевертыш')
  else  writeln('Не перевертыш');
end.