fpcdocs/refex/ex37.pp


1
2
3
4
5
6
7
8

Program Example37;

{ Program to demonstrate the Ln function. }

begin
  Writeln (Ln(1));      { Prints 0 }
  Writeln (Ln(Exp(1))); { Prints 1 }
end.