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

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.