Известно число жителей, проживающих в каждом доме
улицы. Нумерация домов проведена подряд. Дома с нечетными номерами
расположены на одной стороне улицы, с четными — на другой. На какой
стороне улицы проживает больше жителей?  В ПАСКАЛЕ АВС

uses crt;
var a:array [1..1000] of integer;
    n,i,k,p:integer;
begin
     writeln('Введите количество домов ');
     readln(n);
     writeln('Вводите через пробел число жителей каждого дома ');
     for i:=1 to n do
         begin
         read(a[i]);
         if i mod 2=1 then k:=k+a[i]
         else p:=p+a[i];
         end;
     writeln;
     if k>p then writeln ('В нечетных домах жителей больше ')
     else writeln('В четных домах жителей больше ');
end.