{* Задача 182 *}

Unit ZADACH182;
Interface
Implementation
Begin
 writeln('Для того, чтобы разделить маршруты 2 туристических агенств, у одного из них-все маршруты имеют нечётные номера, а у другого -чётные.Всего поступило n заявок с указанием номеров маршрутов.Требуется определить какое количество туристов выбрало маршруты 1 агенства.В алгоритме предусмотреть циклическую структуру с вводом значений номеров маршрутов, анализом на чётность и не чётность и выводом конечного результата. Число заявок n вводится.');
End.

Program example;

Uses zadach182.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  n = 10;
  / / количество заявок
Var {* Объявление переменных *}
  A                              : Array [1..n] Of Word;
  / / массив заявок    i         : 1..n;
  / / счетчик цикла    EvenCount : 0..n;
  OddCount                       : 0..n;
Begin
  EvenCount := 0;
  OddCount := 0;
  writeln('Vvedite ', n, ' nomerov marshrutov:');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    read(A[i]);
    If (A[i] Mod 2) = 0 Then
      inc(EvenCount) {* EvenCount++ *}
    Else inc(OddCount); {* Прибавим к OddCount единицу *}
  End;
  writeln('1 agenstvo vibralo ', EvenCount, ' chelovek.');
  writeln('2 agenstvo vibralo ', OddCount, ' chelovek.');
End.