Задачка на урожайность Опции

[L_E_X]

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

Решения нужно НЕ ЧЕРЕЗ МАССИВЫ!! Знающие люди помогите пожалста.... Целый день сижу, весь измучился.....

[IUnknown]

А зачем тут массивы? В цикле от 1 до 10 вводи урожайность (для каждого района), и прямо сразу в этом же цикле - суммируй. Потом еще поделишь сумму на 10 - будет средняя урожайность. Что именно не получается?

[L_E_X]

program z0;
var a, b, c, d,e:integer;
begin
d:=0;
c:=0;
writeln ('Введите площади каждого района, засеваемые пшеницой в га');
for c:=1 to 10 do begin
write ('Площадь ', c, ' район(а) = ');
read (d);
end;
writeln;
writeln ('Введите площади каждого района, засеваемые пшеницой в га');
for a:=1 to 10 do begin
write ('Площадь ', a, ' район(а) = ');
read (d);
end;
for c:=1 to 10 do begin
d:=d+c;
end;
writeln;
writeln;
write ('Количество пшеницы, собранное в области',d);
for c:=1 to 10 do begin
c:=c*c;
end;
writeln;
write ('Средняя урожайность по области', c);
end.

Добавлено через 2 мин.
Начиная вот с этих строк бред... отредактируй плиз.. ....



for c:=1 to 10 do begin
d:=d+c;
end;
writeln;
writeln;
write ('Количество пшеницы, собранное в области',d);
for c:=1 to 10 do begin
c:=c*c;
end;
writeln;
write ('Средняя урожайность по области', c);
end.