Найти максимум из трёх чисел, числа рандомные от 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)));