Ввести 5 чисел и отыскать наибольшее из их.4 15 9 56

program zz1;

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

begin

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

read(a);  

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

read(b);

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

read(c);

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

read(d);

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

read(e);

if (agt;b)and(agt;c)and(agt;d)and(agt;e) then max:=a;  

if (bgt;a)and(bgt;c)and(bgt;d)and(bgt;e) then max:=b;

if (cgt;b)and(cgt;a)and(cgt;d)and(cgt;e) then max:=c;

if (dgt;b)and(dgt;c)and(dgt;a)and(dgt;e) then max:=d;

if (egt;b)and(egt;c)and(egt;d)and(egt;a) then max:=e;

write( наибольшее среди пяти чисел = , max);  // выводим ответ

end.