Program aaa;
var
M:array[1..1000000] of longint;
n,b,count,i:longint;
begin
writeln('введите размер массива');
read(n);
writeln('введите искомое число b');
read(b);
writeln('введите массив');
for i:=1 to n do 
 read(M[i]);
count:=0;
for i:=1 to n do 
 if M[i]=b then 
   inc(count);
writeln('в данном массиве всего ',count,' чисел(а) ',b)  
end. 

1. Начало
2. k=0, i=0; Ввести: b, n, m[n]
 // m[n] - массив из n элементов
3. Если m[i] = b, то k=k+1
// m[i] обращение к i-ному элементу массива
4. Если i5. Вывести: k
6. Конец