Необходимо получить такую натуральную последовательность максимальной длины, у которой каждый текущий элемент, начиная

var n, i: Longint;
begin
  Read(n); Write(n);
  repeat
    for i:=n div 2 downto 1 do
      if n mod i=0 then begin
        n:=i; Write(' ',n); Break;
      end;
  until n=1;
end.