Объясните алгоритм программы с рекурсией на паскале

[Lostsage]

Вобщем есть готовая программа, нужно расказать алгоритм и что к чему: разложить натуральное число в виде суммы натуральных чисел

Program recur;
var  n: integer;
     c:  array [ 1..100 ]  of integer;
     a: boolean;
     procedure sum(y,k,x:integer);
     const plus:array[boolean] of char=('+',' ');
var  i: integer;

begin
     if y=0 then begin a:=true;
     if a then begin for i:=1 to x-1 do write (c[i], plus[i=x-1]);
     writeln end;
     end else  begin for i:= 1 to k do
     if y-i>=0 then begin c[x]:=i;
     sum(y-i,i,x+1 );

end; end; end;

begin writeln('vvedite 4islo N');
      readln(n);
      sum(n,n, 1 );
      readln
end.

Заранее благодарен

[Stilet]

А чего тут обьяснять?
С клавы считывается n которое передается в процедуру Sum, в этой процедуре выполняются некие действия, затем процедура вызывает себя - передает выполнение своему началу, но уже с другими параметрами. И так до посинения.

[Lostsage]

А что именно содержит в себе процедура? Каков образом вычисляется результат?

[Сергей089]

Я понял так. В архиве 2 картинки.
Извиняюсь за корявый почерк.
(Наверное непонятно написал )

[Lostsage]

Спасибо, логика вроде ясна, только не совсем понятно по какому принципу изменяются переменные i во 2 и последующих пунктах