Написать программу в Pascal числа a, b и c вводятся с клавиатуры. найти max (a, a+b) + max (a, b+c) / 1+max (a+b*c, 1,5)

program zz1;

var a, b, c:integer; / /задаем переменные целого типа

d:real;

function max (x, y:integer) : integer;

var p:integer;

begin

if x > y then p:=x else p:=y;

max:=p;

end;

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (c);

d:=max (a, a + b) + max (a, b + c) / 1 + max (a + b*c, 1.5);

write (' полученный результат = ', d);

end.