Напишите программу, которая принимает с клавиатуры 12 целых чисел и выводит на экран, сколько из них были больше, чем первое число.

var a, b, i, n: integer; / / b - первое число; i - счётчик; n - количество чисел, превышающих первое число; a - переменная значений чисел со 2-ого по 11-ое

begin

n:=0;

writeln ('Введите 12 чисел с клавиатуры.');

readln (b);

for i:=1 to 11 do begin

readln (a);

if a>b then n:=n+1;

end;

writeln ('Количество чисел, больших, чем первое число: ', n);

end.