var pARR: array[1..10] of integer; i,n,A: integer;
begin write('Input A'); readln(A); for i:=1 to 10 do begin
write('Input i ',i);
readln(pARR[i]);
end; n:=0; for i:=1 to 10 do if (pARR[i]>=A) then n:=n+1; writeln('n = ',n,' Press Enter'); readln();
end.