program CountNumbersGreaterThanFirst;
var
firstNumber, number, count, i: integer;
begin
count := 0;
writeln('Введите первое число:');
readln(firstNumber);
writeln('Введите 9 чисел:');
for i := 1 to 9 do
begin
readln(number);
if number > firstNumber then
count := count + 1;
end;
writeln('Количество чисел, больших первого:', count);
end.

Программа позволяет ввести первое число, а затем 9 чисел и определяет, сколько из них больше первого числа.