ответит на вопросы: 1)Что такое первичный ключ базы данных? 2)Типы полей? 3)какие бывают операции отношения? 4)Чем отличается простое логическое выражение от сложного логического выражения? 5)Что значит сортировка базы данных? заранее

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

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