sdabgosdabgasodip

program magic;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
Const n=10;

Var a: array[1..n] of integer;
  count: array[1..n] of integer;
  fl1 : boolean;
  i, ex, k, j, z, m : integer;

begin
  randomize;
  m := 1;
  for i:=1 to n do begin
           a[i]:= random(2);

           writeln('a[', i, ']=',a[i]);
           end;
{создали массив}
  count[1]:=a[1] - 1;
 for i:=1 to n do begin {цикл, в котором каждый элемент захватывается для проверки}
     fl1:=False; {флаг, который указывает, что экземпляр не был ещё посчитан}
     ex:= a[i]; {выбираем число для подсчёта}
     k:=1; {одно число уже точно есть}
     for z:=1 to m do begin {проверяем массив посчитанных чисел}
         if count[z] = ex then begin {если нашли, то ставим флаг, что этот элемент не нужно считать ещё раз}
                           fl1 := True;
                           break;
                           end;
         end;
     if fl1 then continue;
    {вместо условия вхождения в дальнейший код, проще сделать continue}


    for j:=i + 1 to n do begin

         if a[j] = ex then begin
                           k:= k + 1;
         end;


     end;
     if k<>1 then
     writeln('count(', ex, ')=', k);
     count[m] := ex;
     m := m + 1;

  end;
 readln;
end.