74 ! составить программный код к следующей : дан линейный массив из 40 элементов. найдите в нём количество элементов, больших или равных заданному числу n, где n - вводится с клавиатуры. элементы массива заполняются случайным образом.​

Program n_1;

var i, k, n:integer; a: array [1..40] of integer;

begin

   readln(n);

   randomize;

   for i:=1 to 40 do begin

       a[i]:=random(100);

       if a[i]>=n then k:=k+1;

   end;

   writeln(k);

end.

Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.