Program
var
delitel,n:integer ;
 delitel := 2;
 while n > delitel do
 if n mod delitel = 0 then
 begin
 WriteLn(delitel);
  n := n div delitel;
 end
 else
 inc(delitel);
 WriteLn(delitel);
 readln;
end.