Нужно зделать программу с использование под программ

[suprunenko1997]

Подсчитать среднее арефметическое положительных элементов для масива А[1...N1],B[1...N2],C[1...N3],если N1= 6,N2= 8,N3 = 10

[Stilet]

const N1= 6,N2= 8,N3 = 10 ;

function fa:real; var i,s,k:integer; a:array[1..n1] of integer;
 begin s:=0; k:=0; for i:=1 to N1 do begin a[i]:=random(1); if a[i]>0 then begin inc(k); inc(s,a[i]); end; end; fa:=s/ k end;

function fb:real; var i,s,k:integer; b:array[1..n2] of integer;
 begin s:=0; k:=0; for i:=1 to N2 do begin b[i]:=random(1); if b[i]>0 then begin inc(k); inc(s,b[i]); end; end; fb:=s/ k end;

function fc:real; var i,s,k:integer; a:array[1..n3] of integer;
 begin s:=0; k:=0; for i:=1 to N3 do begin c[i]:=random(1); if c[i]>0 then begin inc(k); inc(s,c[i]); end; end; fc:=s/ k end;

begin write(fa:10:2,fb:10:2,fc:10:2); readln;end.