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

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

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