var
  a: array[1..10] of integer;
  ch, f, i: integer;

begin
  for f := 1 to 10 do
  begin
    a[f] := random(25);
    if a[f] > 12 then
      ch := ch + 1;
  end;
  for i := 1 to 10 do 
    writeln('a[', i, ']: ', a[i]);
  writeln('Количество элементов массива, значения которых превосходят 12 - ', ch);
end.