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.