Розв’язок задачі з Абрамова №427

Всі умови | Умова: Дано дійсні числа а, b, с. Отримати... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №427)

program Pr427;
var
  a, b, c, r, f : real;
  
 function max(x,y,z: real): real;
 begin
    if (x>=y) and (x>=z) then
      max:=x;
    if (y>=x) and (y>=z) then
      max:=y;
    if (z>=x) and (z>=y) then
      max:=z;
 end;

begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
  write('c=');
  readln(c);
  f:= -9999999;
  r:= (max(a,a+b,f) + max(a, b + c,f))/(1 + max(a+b*c,1,15));
  writeln(r);

  readln;
end.