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

1)Program a1;

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

Begin    

 clrscr;    

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

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

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

 if c>max then max:=c;    

 if d>c then max:=d;    

 if e>d then e:=max;    

 writeln('Максимальное значение является: ',max);    

 readln

end.

Объяснение:

только с первым