var
n, i : LongInt;
begin
ReadLn (n);
for i := 1 to Round(Sqrt(n)) do
if n mod i = 0 then
WriteLn (i, ' ', n div i)
end.
dmFyCiAgICAgbiwgaSA6IExvbmdJbnQ7CgpiZWdpbgogICAgIFJlYWRMbiAobik7CiAgICAgCiAgICAgZm9yIGkgOj0gMSB0byBSb3VuZChTcXJ0KG4pKSBkbwogICAgICAgICAgaWYgbiBtb2QgaSA9IDAgdGhlbgogICAgICAgICAgICAgIFdyaXRlTG4gKGksICcgJywgbiBkaXYgaSkKCmVuZC4=