Описать функцию Max3(А,B,C) вещественного типа, нaходящую максимальное из трех вещественных чисел A, B и C. С помощью этoй функции найти максимальные из наборов (A,B,C), (A,B,D), (A,С,D), если даны числа А, B, С, D — Pascal(Паскаль)

program ttt;
var a,b,c,d:real;
 
function max3(a,b,c:real):real;
var max:real;
begin
if a>b then max:=a else max:=b;
if max<c then max:=c;
max3:=max;
end;
 
begin
writeln('Введите a,b,c,d');
readln(a,b,c,d);
writeln(max3(a,b,c));
writeln(max3(a,b,d));
writeln(max3(a,c,d));
end.