program dads;

var
  
  a: array [1..100000] of integer;
  i, d, c: integer;

begin
  d := 0;
  readln(c);
  
  for i := 1 to c do
  begin
    a[i] := random(20) - 10;
    writeln(a[i]);
    if a[i] mod 2 = 0 then 
    begin
      d := i;
      break;
    end;
  end;
  writeln('Номер первого четного числа - ', d);
end.