var

 A: array [1..15] of Integer;

 i, c0, c1: Integer;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (2);

   Write (A [i], ' ');

 end;

 c0 := 0;

 c1 := 0;

 for i := Low (A) to High (A) do begin

   if A [i] = 0 then

     Inc (c0)

   else

     Inc (c1);

 end;

 WriteLn;

 Writeln ('Количество 0 = ', c0);

 Writeln ('Количество 1 = ', c1);

end.

// ---------- вариант решения без массивов ----------------

var

 a1, a2, a3, a4, a5: Integer;

 i, c0, c1: Integer;

begin

 Randomize;

 a1 := Random (2);

 a2 := Random (2);

 a3 := Random (2);

 a4 := Random (2);

 a5 := Random (2);

 Write (a1, ' ', a2, ' ', a3, ' ', a4, ' ', a5);

 c0 := 0;

 c1 := 0;

 if a1 = 0 then Inc (c0) else Inc (c1);

 if a2 = 0 then Inc (c0) else Inc (c1);

 if a3 = 0 then Inc (c0) else Inc (c1);

 if a4 = 0 then Inc (c0) else Inc (c1);

 if a5 = 0 then Inc (c0) else Inc (c1);

 WriteLn;

 Writeln ('Количество 0 = ', c0);

 Writeln ('Количество 1 = ', c1);

end.