freepascal.compiler/docs/linuxex/ex44.pp

Program Example44;

{ Program to demonstrate the Octal function. }

Uses linux;

begin
  Writeln ('Octal(666) : ',octal(666));
end.