{* Задача 201 *}

Unit ZADACH201;
Interface
Implementation
Begin
 writeln('В чемпионате по футболу команде за выиграш дается 3 очка, за проигрышь 0, за ничью 1.Известно число очков полученых командой за каждую из провиденных игр.определить количество проиграшей , выграшей и ничьих.');
End.

Program pas13439;

Uses zadach201.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  n = 10;
Var {* Необходимые переменные *}
  a    : Array [1..n] Of integer;
  i    : integer;
  win  : integer;
  draw : integer;
  lose : integer;
Begin
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    write ('Введите результат ', i, '-ого матча->');
    readln(a[i]);
    If a[i] In [0, 1, 3] Then
      Case a[i] Of  0 : inc(lose); {* lose++ *}
        1 : inc(draw); {* Прибавим к draw единицу *}
    3 : inc(win); {* win++ *}
  End;
  
End;
  writeln('Побед ');
  writeln(win);
  writeln('Поражений ');
  writeln(lose);
  writeln('Ничья ');
  writeln(draw);
  End....