59 ! сделатьмультик 90 кадров можно менять героя и фон (по желанию ) сделать в powerpoint.

5 тысячелетие до нашей эры:
Ок. 5000 до н. э. — распад алтайского праязыка (по данным глоттохронологии)
Ок. 5000 до н. э. — возделывание риса (как одного из основных продуктов питания) в Юго-Восточной Азии.
Ок. 5000 до н. э. — начало возделывания кукурузы на территории современной Мексики.
Ок. 5000 до н. э. — появление первых жителей на месте Библа, одного из древнейших городов мира.
4236 до н. э. — первая дата в древнеегипетском календаре.

4 тысячелетие до нашей эры:
1-я пол. — бассейновая система орошения в Египте.
Середина тысячелетия — строительство Стоунхенджа.
Ок. 3500 до н. э. — основание первого города-государства Урук в Месопотамии.
2-я пол. — возникновение единых Верхнеегипетского и Нижнеегипетского царств.
Конец — объединение Египта под властью Верхнего Египта. ... надеюсь  ты    это  имела  в виду или  нет?

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

Большее количество людей проживает на левой стороне улицы.