Рассматривается множество целых чисел, принадлежащих числовому отрезку [2477; 7849], которые делятся на 2 и не делятся на 5, 8, 9, 13.

Примечание: Ввод данных рандомный, но в скобках { } представлен альтернативный вариант ввода с клавиатуры. 
Также порядок ввода здесь по районам, но при желании можно изменить на ввод по массивам.

А) без использования дополнительного третьего массива

const n=20;
var
  a,b: array[1..n] of integer;
  sa: real;
  i: byte;
begin
  randomize;
  sa:=0;
  for i:=1 to n do begin;
    writeln ('Район № ',i);
    {write ('Площадь пшеницы: ');
    readln (a[i]);
    write ('Собрано пшеницы: ');
    readln (b[i]);}
    a[i]:=random(50,100); 
    b[i]:=random(500,1000);
    writeln ('Площадь пшеницы: ',a[i],' га');
    writeln ('Собрано пшеницы: ',b[i],' т');
    writeln ('Средняя урожайность: ',b[i]/a[i]:6:2,' т/га');
    writeln;
    sa:=sa+b[i]/a[i];
  end;
  sa:=sa/n;
  writeln;
  writeln ('Средняя урожайность по области = ',sa:6:2,' т/га');
  writeln;
  writeln ('Массив 1:');
  println (a);
  writeln ('Массив 2:');
  println (b);
end.

Результат работы для N=2
Район № 1
Площадь пшеницы: 98 га
Собрано пшеницы: 815 т
Средняя урожайность:   8.32 т/га

Район № 2
Площадь пшеницы: 63 га
Собрано пшеницы: 583 т
Средняя урожайность:   9.25 т/га

Средняя урожайность по области =   8.79 т/га

Массив 1:
98 63
Массив 2:
815 583


В) с использованием дополнительного массива 

const n=20;
var
  a,b,c: array[1..n] of real;
  sa: real;
  i: byte;
begin
  randomize;
  sa:=0;
  for i:=1 to n do begin;
    writeln ('Район № ',i);
    {write ('Площадь пшеницы: '); readln (a[i]);
    write ('Собрано пшеницы: '); readln (b[i]);}
    a[i]:=random(50,100); 
    b[i]:=random(500,1000);
    writeln ('Площадь пшеницы: ',a[i],' га');
    writeln ('Собрано пшеницы: ',b[i],' т');    
    c[i]:=b[i]/a[i];
    writeln ('Средняя урожайность: ',c[i]:6:2,' т/га');
    sa:=sa+c[i];
  end;  
  sa:=sa/n;
  writeln;
  writeln ('Средняя урожайность по области = ',sa:6:2,' т/га');
  writeln;
  writeln ('Массив 1:');
  println (a);
  writeln ('Массив 2:');
  println (b);
  writeln ('Массив 3:');
  println (c)
end.

Результат работы для N=2
Район № 1
Площадь пшеницы: 97 га
Собрано пшеницы: 891 т
Средняя урожайность:   9.19 т/га
Район № 2
Площадь пшеницы: 87 га
Собрано пшеницы: 945 т
Средняя урожайность:  10.86 т/га

Средняя урожайность по области =  10.02 т/га

Массив 1:
97 87
Массив 2:
891 945
Массив 3:
9.18556701030928 10.8620689655172