Описать функцию 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 — Pascal(Паскаль)

function Max4(a,b,c,d:real):real;
var mx:real;
begin
mx:=a;
if b>mx then mx:b;
if c>mx then mx:=c;
if d>mx then mx:=d
Max4:=mx;
end;
var a,b,c,d,e,mx1,mx2,mx3,mx:real;
begin
writeln('Введите 5 чисел:');
readln(a,b,c,d,e);
mx1:=Max4(a,b,c,d);
mx2:=Max4(a,b,c,e);
mx3:=Max4(a,c,d,e);
mx:=mx1;
if mx2>mx then mx:=mx2;
if mx3>mx then mx:=mx3;
writeln(mx);
writeln(mx);
readln
end.