program abc;
var
  n, delitel : integer;
   f:Text;
   function IsCorrectSizechislo(var n1: Integer): Integer;
var
   IsCorrect: boolean;
begin
   IsCorrect := False;
   repeat
    Writeln('vvdtdite chislo ')    ;
          try
         Readln(n1);
         if (n1<0) then
            Writeln('The number must be up to 0!')
         else
            IsCorrect:= True;
      except
         Writeln('Error! Enter a number: ');
      end;
   until IsCorrect;
   Result := n1;
end;

   procedure inputfile(n1 :integer );
   var
   f:Text;

   begin
          IsCorrectSizechislo(n);
       AssignFile(f, 'F:\file.txt');
       Reset(f);
       readln(f, n1);
       CloseFile(f);
   end;
   procedure outputfile(var delitel1:integer ) ;
   var
   f1:Text;
   begin
       AssignFile(f1, 'F:\filevivod.txt');
       Rewrite(f1);
       Writeln(f1, delitel1);
       CloseFile(f1);
   end;
begin
  inputfile( n );
  delitel := 2;
  while n > delitel do
    if n mod delitel = 0 then
      begin
      WriteLn(delitel);
      // outputfile(delitel);
        if n mod delitel = 0 then n := n div delitel;
      end
    else
      inc(delitel);
       WriteLn(delitel);
  readln;
end.