В ПАСКАЛЕ.дан массив из 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.