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

Предыдущий
вопрос Следующий
вопрос

program StreetResidents
va
oddResidents, evenResidents, oddNumber, evenNumber, i, n, residents: integer
begi
oddResidents := 0
evenResidents := 0;

writeln('Введите количество домов на улице: ')
readln(n);

for i := 1 to n d
begi
writeln('Введите количество жителей в доме ', i, ': ')
readln(residents);

end;

if oddResidents > evenResidents the
writeln('На стороне с домами нечетных номеров живет больше жителей.'
else if oddResidents < evenResidents the
writeln('На стороне с домами четных номеров живет больше жителей.'
els
writeln('На обеих сторонах живет одинаковое количество жителей.'
end.