Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В( задаётся с клавиатуры)

var  i,n,b:integer;  a:array[1..20]of integer;beginfor i:=1 to 20 do  begin  a[i]:=random(20);  write(a[i],' ');  end;writeln;write('Введите b: ');readln(b);for i:=1 to 20 do  if a[i]<b then n:=n+1;writeln('Ответ: ',n);end.

Program n1;Uses Crt;Var c: array[1..10] of integer;i, b, k:integer;Beginfor i:=1 to 10 do beginc[i]:=random(40) - 20;write(c[i]:4);end;    writeln();writeln('Enter B = '); Readln(b);k:=0;for i:=1 to 10 do   if (c[i]<b) then k:=k+1;   writeln('Kol-vo iskomih chisel: ', k);End.