5.4

program prog;
var
   a, b, s : longint;
   i, j : longint;
begin
  while (true) do begin
  Readln(a);
  b := 0;
  for i := 1 to a do
    if (a mod i = 0) then begin
       writeln(i)
    end;
  end;
end.