2. Дан числовой массив А, состоящий из п натуральных чисел. Определите количество элементов массива, которые больше заданного числа. (3 балла)

Program Free Pascal 2.6.0; Uses crt; const n = 5; // например 5 var A:array [1..n] of integer; i,col:integer;   begin clrscr;  col:=0;   //  Кол-во элементов больших заданного изначально = 0  for i:=1 to n do    begin       read(A[i]);  // Заполняем массив произвольными числами      if (A[i]>n) then col:=col+1;  // Если введенное число больше задонного (>5), то кол+1    end; writeln;   writeln('Кол-во элементов больших заданного: ',col);  readkey;  end.