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.
Объяснение:
только с первым
