Hogyan néz ki ez a program Visual Basic-ben?

Adott egy program Pascalban, át kéne írni, hogy jó legyen dotnetben. Mi a működőképes program?

A forrás Pascalban:

program osszegrebont;

uses crt;

const db=5;

szam=50;

var szamlalo: integer;

osszeg : array [1..db] of integer;

procedure keres(hely,k,db1,sz1:integer);

var i:integer;

begin

hely:=hely+1;

if db1=1 then begin osszeg[hely]:=sz1;

szamlalo:=szamlalo+1;

for i:=1 to db-1 do write(osszeg[i],' + ');

writeln(osszeg[db]);

end

else for i:=k to (sz1 div db1) do begin osszeg[hely]:=i;

keres(hely,i,db1-1,sz1-i)

end;

end;

begin

szamlalo:=0;

keres(0,1,db,szam);

writeln('A felbontás ',szamlalo,' különbözõ esetben sikerült!');

end.