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;
   function outputfile(var delitel1:integer ) :integer;
   var
   f1:Text;
   begin
       AssignFile(f1, 'F:\filevivod.txt');
       Rewrite(f1);
       Writeln(f1, delitel1);
       CloseFile(f1);
      inputfile( n );
      delitel := 2;
  while n > delitel1 do
    if n mod delitel1 = 0 then
      begin
      WriteLn(delitel1);
      if n mod delitel1 = 0 then n := n div delitel1;
      end
    else
      inc(delitel1);
       WriteLn(delitel1);
  readln;
   end;
   begin
      outputfile (delitel);

end.