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

//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.