Напишите процедуру нахождения наибольшего из чисел? ?

procedure print_max(a, b: integer);begin if a > b then writeln(a) else writeln(b);end;