fpcdocs/refex/ex47.pp


1
2
3
4
5
6
7
8

Program Example47;

{ Program to demonstrate the Pi function. }

begin
  Writeln (Pi);         {3.1415926}
  Writeln (Sin(Pi));
end.