Write a program that takes 12 integers from the keyboard and prints to the screen how many were greater than the first number.

var a, b, i, n: integer; // b is the first number; i – counter; n is the number of numbers exceeding the first number; a – variable of values of numbers from 2nd to 11th
begin
n: = 0;
writeln (‘Enter 12 numbers from the keyboard.’);
readln (b);
for i: = 1 to 11 do begin
readln (a);
if a> b then n: = n + 1;
end;
writeln (‘The number of numbers greater than the first number:’, n);
end.