Написать 3 программы на Паскале (30 баллов)

Ответ:

1)Program a1;

 var a,b,c,d,e,max:real;

Begin    

 clrscr;    

 writeln('Введите 10 чисел');    

 readln(a,b,c,d,e);    

 if agt;b then max:=a else max:=b;    

 if cgt;max then max:=c;    

 if dgt;c then max:=d;    

 if egt;d then e:=max;    

 writeln('Наибольшее значение является: ',max);    

 readln

end.

Изъясненье:

Посодействовала только с первым