Дан массив из N целых элементов и целое число B.Написать программу, определяющую, сколько в массиве чисел, меньших В.

Program Task; Const N = 10; Var a: Array [1..N] of Integer; i, B, count: Integer; Begin     Write('B = ');     ReadLn(B);     WriteLn('Введите ', N, ' элементов через пробел');     For i := 1 To N Do     Begin         Read(a[i]);         If a[i] < B Then             count := count + 1;     End;     WriteLn('Количество элементов, меньших ', B, ' равно ', count);     ReadLn; End.