program task;

const INITIAL_CAPACITY = 20;
var
   elementData : array[1..INITIAL_CAPACITY] of Integer;
   // sortScore : array[2..5] of Integer;//comparator
   i, m2, m3, m4, m5 : Integer;

begin
  for i:=1 to INITIAL_CAPACITY do
     elementData[i] := random(4)+2;

  writeln('Рандомный массив: ', elementData);
  for i := 1 to INITIAL_CAPACITY do
    case elementData[i] of
      2: m2 := m2 + 1;
      3: m3 := m3 + 1;
      4: m4 := m4 + 1;
      5: m5 := m5 + 1;
    end;
  var builder := new StringBuilder();
  write(builder
     .Append(' Двоек: ').Append(m2)
     .Append(' Троек: ').Append(m3)
     .Append(' четверок: ').Append(m4)
    .Append(' пятерок: ').Append(m5)
  );
end.