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

program q4;

var
  arA, arB: array [1 .. 10] of real;
  i: integer;
  oblZerno: real;

begin
  for i := 1 to 10 do
  begin
    write('Введите площадь ', i, 'го района*(га) среднюю урожайность (ц/га)');
    readln(arA[i], arB[i]);
    oblZerno := oblZerno + arA[i] * arB[i];
  end;
  writeln('Всего зерна по области**- ', oblZerno:5:2,
    ' ц, средняя урожайность по области - ', oblZerno / 10:4:2, ' ц/га');
  readln;

end.