freepascal.compiler/docs/mathex/ex29.pp

Program Example29;

{ Program to demonstrate the min function. }

Uses math;

Var 
  A,B : Cardinal;

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