program CountElements;
var
A: array [1..10] of integer;
i, count: integer;
begin
count := 0;

// Заполняем массив случайными числами
randomize;
for i := 1 to 10 do
begin
A[i] := random(20); // Генерируем случайное число от 0 до 19
writeln('A[', i, '] = ', A[i]);
if A[i] > 10 then
count := count + 1;
end;

writeln('Количество элементов массива А, больших 10: ', count);
end.