Кошторис. Как можно быстрее

1) Не понятно задание, в комментах допишу, как только пойму.
2)var t,c:array [1..10] of integer;
    i,sum:integer;
begin
for i:=1 to 10 do begin
   t[i]:=random(20+i);
   c[i]:=random(20000+i);
end;
for i:=1 to 10 do begin
   sum:=sum+t[i]*c[i];
end;
for i:=1 to 10 do begin
   writeln('Количество товара ',i,' вида ',t[i],'  Стоимость товара ',i,' вида ', c[i]);
end;
writeln('Общая сумма ',sum);
end.
3) Мы опишем его так
    ves: array [1..31] of real;
4)
var sum,x:real;
    n,i:integer;
begin
read(n);
for i:=1 to n do begin
   read(x);
   sum:=sum+x;
   end;
writeln(sum/n);
end.

Const n=10; m=3;
var 
a:array[1..n,1..m] of integer;
i,j,s,k:integer; p:real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(81)+20;
   write(a[i,j]:4);
  end;
  writeln;
 end;
s:=0;
for i:=1 to n do
 for j:=1 to m do s:=s+a[i,j];
p:=s/n*0.8;
writeln('p = ',p:5:2);
writeln('Зачислены:');
k:=0;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to m do s:=s+a[i,j];
 if s>=p then begin write(i,' '); k:=k+1; end;
 end;
writeln;
writeln('k = ',k);
end.

Пример:
76 62 50
37 73 22
61 99 36
22 69 38
27 82 22
93 56 37
79 84 51
83 31 60
61 39 95
70 70 100
p = 142.80
Зачислены: 1 3 6 7 8 9 10
 k = 7