задача на рекурсию

[Leet]

дано:1<x,y,z<100 1<w<1000;
надо найти комбинации x,y,z(как вместе так же и отдельно) чтобы сумма была w
пример дано: 10,25,15,40;
комбинации:
25+15=40
4*10=40
2*15+10=40
P.s рекурсию ещё понимаю плохо,нужен опыт....

procedure rek(x1,w,l,x,y,z:integer; var k:integer);
 begin
 l:=l+x1;
  if l>w then exit;
   if l=w then k:=k+1;
 rek(z,w,l,x,y,z,k);
 rek(y,w,l,x,y,z,k);
 rek(x,w,l,x,y,z,k);
end;
var x,y,z,w,k,l,l1,l2:integer;
 begin
  assign(input,'input.txt');
  reset (input);
  assign(output,'output.txt');
  rewrite (output);
  read (x,y,z,w);
  l:=0;
  k:=0;
  rek(0,w,l,x,y,z,k);
  write (k);
 end.