Program Example44; { Program to demonstrate the Octal function. } begin // Writeln ('Octal(666) : ',octal(666)); Writeln (' &666 : ',&666); // 1.9.x+ functionality, octal is not necessary anymore end.