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

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

program StreetResidents;
var
oddResidents, evenResidents, oddNumber, evenNumber, i, n, residents: integer;
begin
oddResidents := 0;
evenResidents := 0;

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

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

end;

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