// Например так:
begin
var a := 123456789;
a := a.ToString[2:].ToInteger;
Print(a) // 23456789
end.
// Или так:
function foo(a: integer): integer;
begin
if a div 10 = 0 then exit
else
Result := a mod 10 + 10 * foo(a div 10);
end;
begin
var a := 123456789;
Print(foo(a)) // 23456789
end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
5.To(12).Tabulate(x->x*x+1).Println
end.
<u><em>Результат:</em></u>
(5,26) (6,37) (7,50) (8,65) (9,82) (10,101) (11,122) (12,145)
С текстовым и графически.