{* Задача 202 *}

Unit ZADACH202;
Interface
Implementation
Begin
 writeln('В области 12 районов. Известны количество жителей и площадь каждого района. Определить среднюю плотность насе-ления по области в целом');
End.

Program pas13457;

Uses zadach202.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  n = 12;
Var {* Объявление переменных *}
  s        : Array [1..n] Of integer;
  p        : Array [1..n] Of integer;
  i        : integer;
  a        : integer;
  b        : integer;
  plotnost : real;
Begin
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    write('введите площадь и количество жителей ', i, '-ого района');
    readln( s[i], p[i]);
  End;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    a := a + s[i];
    b := b + p[i];
  End;
  plotnost := b / a;
  write ('средняя плотность населения по району в целом ', plotnost : 6 : 1);
End.