freepascal.compiler/docs/mathex/ex24.pp

Program Example24;

{ Program to demonstrate the max function. }

Uses math;

Var 
  A,B : Cardinal;

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