var
  n, i, j: longint;
  b: boolean;

begin
  //read(n);
  n := 10;
  while (n <= 100000) do
  begin
    for i := 2 to n do
    begin
      b := true;
      for j := 2 to i - 1 do
        if(i mod j = 0) then b := false;
      if(b) then//write(i, ' ');
    end;
    writeln;
    write('При N = ', n, ' время работы программы составило: ', milliseconds() / 1000, '(сек)');
    n *= 2;
  end;
end.