Функция

[Seferus]

описать функцию Max4(A,B,C,D) вещественного типа, находящую максимальное из четырех вещественных чисел A,B,C и D. С помощью этой функции найти максимальное из наборов (A,B,C,D), (A,B,C,E),(A,C,D,E), если даны числа A,B,C,D,E.

[TinMan]

function Max4(a,b,c,d: real): real;
begin
  if a>b then b:= a;
  if b>c then c:= b;
  if c>d then d:= c;
  Max4:= d
end;

P.S. Либо еще вот так можно (для эстетов))

function Max4(a,b,c,d: real): real;
  function Max(a,b: real): real;
  begin
    if a>b then Max:= a else Max:= b
  end
begin
  Max4:= Max(Max(a,b),Max(c,d))
end;