Question

Найти максимум из трёх чисел, числа рандомные от 0 до 20, предусмотреть случай, что числа равны (нужно паскале написать помогите пожалуйста)

Answer 1

function Max(a,b: integer): integer;begin  if a > b then    Max := a  else    Max := b;end;


Использование:
WriteLn(Max(a, Max(b, c)));