Написать программу в Pascal числа a,b и c вводятся с клавиатуры.отыскать

program zz1;

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

d:real;

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

var p:integer;

begin

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

max:=p;

end;

begin

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

read(a);  

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

read(b);

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

read(c);

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

write( приобретенный итог = , d);

end.