freepascal.compiler/docs/linuxex/ex68.pp

Program Example68;

{ Program to demonstrate the Octal function. }

begin
  Writeln('Mode 777 : ', &777);
  Writeln('Mode 644 : ', &544);
  Writeln('Mode 755 : ', &755);
end.