Уверен, что формула в условии написана неверно, но уж как написано...

var
  a,b,c:real;
begin
  Write('Введите a,b,c: '); Read(a,b,c);
  Writeln('Результат: ',max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5))
end.

Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 31

А вот так, на мой взгляд, должно быть:
var
  a,b,c:real;
begin
  Write('Введите a,b,c: '); Read(a,b,c);
  Writeln('Результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1.5)))
end.

Тестовое решение:
Введите a,b,c: -3 5.5 4
Результат: 0.6

Function max (var first,second:real): real;
begin 
if first > second then max:=first else max:= second;
end;

var a,b,c,y : real;
begin 
writeln('Ведите a,b,c через пробел и нажмите Enter: '); 
 read(a,b,c); 
y:= max(a,a+b)+max(a,b+c)/1+max(a+b*c,1.5); 
 writeln('Ответ: ',y);
end.