fpcdocs/mathex/ex29.pp


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

Program Example29;

{ Program to demonstrate the min function. }

Uses math;

Var
  A,B : Cardinal;

begin
  A:=1;b:=2;
  writeln(min(a,b));
end.