program Zad1Nica;

const
  Size = 10;

var
  a: array[1..Size] of Integer;
  i, k: Integer;

begin
  Randomize;
  k := 0;

  // Заполнение массива и вывод его на экран
  for i := 1 to Size do
  begin
  a[i] := Random(25);
  Write(a[i]:5);
  
  // Подсчет суммы положительных и количества отрицательных элементов
  if a[i] > 12 then
  k := k + 1;
  end;

  // Вывод результатов
  Writeln;
  Writeln('Количество элементов массива, значение которых превышает 12: ', k);
  Readln;
end.