посчитайте, прошу Информатика​Задания по языку Паскаля

Это на 1ое

Program z1;

var a,b,c,max:integer;

begin

writeln(Введите 3 целых числа);

readln(a,b,c);

if agt;b then max:=a

else

if bgt;c then max:=b

else max:=c;

writeln(Наибольшее число = ,max);

end.

Это на 2ое

Program z2;

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.