Var i,k,n: integer;
    a: array[1..10] of integer;
begin
  k:=0;    randomize;
  writeln('число:  '); readln(n);
  writeln('последовательность из 10 элементов');
  for i:=1 to 10 do
  begin
    a[i]:=random(50);
    write(a[i],' ');
    if a[i]=n then k:=k+1;
  end;
  writeln;
  if k>0 then
      writeln('число ',n,' встречается ',k,' раз')
  else
      writeln('числа ',n,' нет в последовательности');
  readln;
end.