fpcdocs/olinuxex/ex68.pp


1
2
3
4
5
6
7
8
9
10
11

Program Example68;

{ Program to demonstrate the Octal function. }

Uses oldlinux;

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