Задача на целочисельное решение

[maksym08]

У меня есть задача: дано уравнение x1+x2+...+xn=r. Известны n и r.
Посмотрите пожалуста мой код. Тут находит количество решений, а надо + все эти решения. Спасибо!

 #include <iostream>
 #include <iomanip>
 #include <sstream>
 #include <conio.h>
 #include <cmath>
 using namespace std;

 int main()
 {
 cout.width(62);
 cout<<"Znahodgennia rozvazkiv rivniannia X1+X2+...+Xn=r"<<endl<<endl;
 long int n,r,K;
 cout<<"Vvedit kilkist zminnyh n: ";
 cin>>n;
 if (n<1) {cout<<"Pomylka: n>=1 !";getche();return 0;}
 cout<<"Vvedit cilu constantu r: ";
 cin>>r;
 if (r<0) {cout<<"Pomylka: r>0 !";getche();return 0;}
 long int fv=1;
 for (int i=1;i<=(n+r-1);++i)
 fv*=i;
 long int f1=1;
 for (int i=1;i<=(n-1);++i)
 f1*=i;
 long int f2=1;
 for (int i=1;i<=r;++i)
 f2*=i;
 K=fv/(f2*f1);
 cout<<"Kilkist rozvazkiv = "<<K<<endl;

 getche();
 return 0;
 }

Вот правильное решение на паскале, но паскаль я не учил. Помогите пожалуста!

type list=^node;
node=record
  el:integer;
  next:list;
end;
procedure poisk(r,n:integer;l:list);
var  d:list;
     q:integer;
begin
  if r<n then exit;
  if (r=0)and(n=0) then begin
    d:=l;
    while d<>nil do begin
      write(d^.el,' ');
      d:=d^.next;
    end;
    writeln;
    exit
  end;
  q:=r-n+1;
  while q>=1 do begin
    new(d);
    d^.el:=q;
    d^.next:=l;
    poisk(r-q,n-1,d);
    dispose(d);
    d:=nil;
    if n=1 then exit; {последний Х может принять только одно значение}
    q:=q-1;
  end;
end;