даны действительные числа а, b,с . вычислить с помощью функции : max(a,a+b)+max(a,b+c)/1+max(a +bc,1,15)  — Pascal(Паскаль)

var a,b,c,k:real;
 
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
 
function max(a,b:real):real;
begin
if a>b then max:=a else max:=b;
end;
 
begin
writeln('Введите A,B,C');
readln(a,b,c);
k:=max(a,a+b)+max(a,b+c)/(1+max(a+b*c,1.15));
writeln(k);
end.