Сколько элементов массива больше числа A. Написать программу на языке Pascal.

var i, a, n, k:longint;

var mas:array[1 ... 100000000] of longint;

begin

k:=0;

writeln ('Введите количество элементов массива') ;

readln (n) ;

writeln ('Введите число A') ;

readln (a) ;

for i:=1 to n do begin writeln ('Введите элемент массива') ; readln (mas[i]) ; if mas[i]>a then k:=k+1; end;

writeln (k,' элементов массива больше числа',' ', a) ;

end.