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

Question

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

Answer 1

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