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

var  i, k, n1, n2: integer;begin  n1 := 0;  n2 := 0;  {предполагается, что нумерация домов начинается с 1}  writeln('Вводите количество жителей в порядке возрастания номеров домов');  writeln('Окончание ввода - по отрицательному значению');  i := 1;  repeat    read(k);    if k > 0 then    begin      if i mod 2 = 0 then n2 := n2 + k      else n1 := n1 + k;      i := i + 1    end  until k < 0;  write(#13#10, 'Большее количество людей проживает на ');  if n1 > n2 then writeln('левой стороне улицы.')  else writeln('правой стороне улицы.')end.Тестовое решение:Вводите количество жителей в порядке возрастания номеров домовОкончание ввода - по отрицательному значению13 56 25 31 98 35 72 64 -1Большее количество людей проживает на левой стороне улицы.