const n=5;
var mas: array[1..n] of integer;sum,b:integer;i:byte;
begin
write('b: ');readln(b);
for i:= 1 to n do begin
mas[i]:=random(-100,100);
if mas[i] = b then begin sum:=sum+1; end;
end;
writeln('Совпадений найдено: ',sum);
end.