Вычислить выражение через процедуры с параметрами, либо без параметров - PascalABC.NET

procedure max(a, b :real; var mx : real);
begin
  if a > b then mx := a else mx := b
end;
 
var 
  a, b, c :real;
  max_1, max_2, max_3 : real;
begin
  write('a = '); readln(a);
  write('b = '); readln(b);
  write('c = '); readln(c);
  max(a,a+b,max_1);
  max(a,b+c,max_2);
  max(a+b*c,1.15,max_3);
  
  writeln((max_1+max_2)/(1+max_3));
end.