Incompréhension d'un algo en Pascal [resolu]

Bonjour à tous,

Je cherche à résoudre un problème de combinatoire
me donnant le nombre de possibilité de décomposer 185€ avec des billets de 5,10,20 et 50€..

Voici l'algorithme qu'on m'a proposé sur un autre site en Pascal mais malheureusement je n'arrive pas à le faire tourner et je ne connais vraiment pas le Pascal...!

Si qqun sais me donner qqs explications sur le programme en lui-même svp...

Merci !

Code :

procedure TForm3.Button1Click(Sender: TObject);
var
r,n,m,t,u : integer;
s1,s2,s3,s4,s : string;
begin
Memo1.Clear;
for n := 0 to 38 do
for m := 0 to 19 do
for t:= 0 to 10 do
for u := 0 to 4 do
begin
r := 5*n+10*m+20*t+50*u;
if r = 185 then
begin
s := '';
s1 := '';
s2 := '';
s3 := '';
s4 := '';
if n <> 0 then s1 := '5.'+inttostr(n);
if m <> 0 then s2 := '10.'+inttostr(m);
if t <> 0 then s3 := '20.'+inttostr(t);
if u <> 0 then s4 := '50.'+inttostr(u);

if s1 <> '' then s := s1;
if (s2 <> '') and (s <> '') then
s := s+'+';
if (s2 <> '') then s := s+s2;
if (s3 <> '') and (s <> '') then
s := s+'+';
if (s3 <> '') then s := s+s3;
if (s4 <> '') and (s <> '') then
s := s+'+';
if (sa <> '') then s := s+s4;
memo1.Lines.Add('185='+s);
end;
end;
end;