Условие: Ключом шифра, называемого «решёткой», является квадратный трафарет размера 66 клеток. В трафарете
вырезаны 9 клеток так, что при наложении его на квадратный лист бумаги размера 66 клеток четырьмя возможными его вырезы полностью покрывают всю площадь листа. Буквы сообщения (без пропусков) последовательно
вписываются в вырезы трафарета (по строкам, в каждой строке слева направо) при каждом из четырех его возможных
положений. Прочтите исходный текст, если после шифрования на листе бумаги оказался следующий текст (на русском
языке):
И В Б Р Н М
Е А И - Р И
Л Н - Е А Н
В - А С О -
- Я Ь Т О Ц
И С А - Ш О
Необходимо расшифровать сообщение и найти ключ, то есть местоположение всех прорезей в решётке.
ответ запишите прописными буквами, разделяя слова пробелами.

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

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

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

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