var
  mas: array [1..50] of Integer;
  i, x: Integer;
  f: Boolean;
begin
  f := False;
  Randomize;
  for i := 1 to 50 do
    mas[i] := Random(1000);
  
  Write('Введите номер: ');
  ReadLn(x);
  
  for i := 1 to 50 do
  begin
    if mas[i] = x then
	begin
	  WriteLn('Выигрышный билет!');
	  f := True;
	  break;
	end;
  end;
  
  if f = False then
    WriteLn('Билет не выигрышный')
end.