рекурсия и делители

[MuruMec]

Ребят помогите пожалуйстаЗадача на первый взгляд простая, но до меня никак не допрёт. Вводится число, нужно найти все его делители. Все бы ничего, но надо сделать с помощью рекурсии На Паскале

[eoln]

Не проверял, примерно так

procedure deliteli(x, i: word);
begin
  if i > x div 2 then exit;
  if x mod i = 0 then writeln(i);
  deliteli(x, i+1)
end;

вызывать так: deliteli(введёное_число, 2) Ну и если надо 1 и само число, то можно дописать.

[MuruMec]

Спасибо И почему я сам не мог это сделать?