Программа

Program Task1;
{ Вычисление по формуле }
Var A,B,C:real;                    { Описание операндов }

Function Max(N1,N2:real):real;     { Определение максимального из пары чисел }
  Begin
    if N1>N2 then Max:=N1
   { Если первое больше второго, то определение значения функции по первому, }
             else Max:=N2  { иначе - по второму аргументу }
  End;

BEGIN
  WriteLn;                                 { Пропуск строки }
  Write('Введите A B C   ');               { Вывод приглашения ввести данные }
  ReadLn(A,B,C);                           { Ввод данных }

  { Вычисление и оформление результата: }
  WriteLn;                                 { Пропуск строки }
  WriteLn('max(A,A+B)+max(A,B+C)');
  WriteLn('───────────────────── =',(max(A,A+B)+max(A,B+C))/max(A+B*C, 1.15));
  WriteLn('  max(A+B*C, 1.15)   ');
END.