нужна помощь помогите в делфи решить одномерный массив

Question

в области 10 районов. Заданы площади, засеваемые пшеницей (в гектарах), и средняя урожайность ( в центнерах с гектара) в каждом районе. Определить количество пшеницы, собранное в области, и среднюю урожайность по области.

Наталия Боклаженко · Accepted Answer

Тут не вся задача, но пример решения такой, примерно 
 
var A,B,i,N: integer; 
begin 
 ReadLn(A,B); 
 N:=B-A+1; 
 for i:=A to B do WriteLn(i); 
 WriteLn(N); 
end.

Инна Ушакова · Answer

for i := 1 to 10 do inc( s, a[ i ] ); avg := s / 10;