fpcdocs/refex/ex1.pp


1
2
3
4
5
6
7
8
9
10
11
12

Program Example1;

{ Program to demonstrate the Abs function. }

Var
  r : real;
  i : integer;

begin
  r:=abs(-1.0);   { r:=1.0 }
  i:=abs(-21);    { i:=21 }
end.