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 writeln('Совпадение найдено! Индекс: ',i); sum:=1; break end;
end;
if sum=0 then writeln('Совпадений не найдено!');
end.