Program TopSecret;

var i, n :LongInt;

Procedure Test( i :LongInt );
  begin
    if (n mod i) = 0 then begin WriteLn( i, ' ', n div i ); halt; end;
  end;

begin
  ReadLn( n );
  Test( 2 );
  Test( 3 );
  i := 5;
  while true do
    begin
      Test( i );    { Číslo tvaru 6k-1 }
      i := i + 2;
      Test( i );    { Číslo tvaru 6k+1 }
      i := i + 4;
    end;
end.