Впаскале.дан массив из 20 чисел.найти сумму первых десяти (1..10),произведение последних десяти (11..20) и среднее арифметическое этих результатов.

Const
n=20;
var
a:array[1..n]of integer;
p,s:real;
i:integer;
begin   p:=1;{начальное значение р, чтобы при умножении произведение не было =0}
     for i:=1 to n do
           begin
              a[i]:=random(20); {массив заполняется случайными числами [0;20)}
               write(a[i]:4); {массив выводится на экран}
                     if i<=10 then {если номер элемента <=10}
                        s:=s+a[i]    {то считаем сумму элементов}
                     else
                        p:=p*a[i]; {иначе, т.е если номер элемента >10 считаем произв ]
           end;
   writeln;
 writeln('сумма = ',s:4:0,'   p= ',p:4:0)     {выводим сумму и произвед на экран}  ;
writeln('среднее = ',(p+s)/2);   {выводим среднее}
end.