Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.