Найти среднеарифметическое значение

const n=10;
var m:array[1..n] of extended;
    p,q:extended;
    i:byte;
begin
randomize;
for i:=1 to n do
 begin
 m[i]:=random(20);;
 end;
 begin
 for i:=1 to n do
p:=m[i]/n;
end;
q:=m[1]*m[3]*m[5]*m[7]*m[9];
Memo3.Lines.Add('Ðåçóëüòàò p='+floattostrf(p,fffixed,8,2));
Memo3.Lines.Add('Ðåçóëüòàò q='+floattostrf(q,fffixed,8,2));
end;

procedure SUB(k,s:extended; n,m:byte; b:array of integer; var pr:extended);
var
i:byte;
pr1:extended;
begin
pr:=1;
pr1:=1 ;
for i:= n to m do
begin
pr1:=pr1*power(b[i],s);
end;
pr:=pr1*k;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
var
b:array[0..16] of integer;
Y:extended;
i:byte;
sub1,sub2,sub3:extended;
begin
Memo5.Text:='Ýëåìåíòû ìàññèâà b: ' ;
for i:=0 to 16 do
begin
b[i]:=random(20);
Memo5.Text:=Memo5.Text+'  ['+inttostr(b[i])+']';
end;
SUB(1.9,2,16,2,b,sub1);
SUB(7,3,16,3,b,sub2);
SUB(0.4,1,10,0.5,b,sub3);
Y:=sub1+sub2+sub3;
Memo5.Lines.Add('Y='+floattostrf(Y,fffixed,10,2));
end;