Imports System

Public Class Test
	Public Shared Sub Main()
		    dim n,n1,n2,n3,n4,n5 as integer
        n=100
        for n1=0 to 9
        for n2=0 to 9
        for n3=0 to 9
        for n4=0 to Math.min(n1+n2+n3,9)
        for n5=0 to Math.min(n1+n2+n3-n4,9)
        if (n1+n2+n3-n4-n5>=0) and (n1+n2+n3-n4-n5<=9) then 
'            print n
            n=n-1
            if n=0 then 
                stop 
            else  
                Console.WriteLine("{0}{1}{2}{3}{4}{5}",n1,n2,n3,n4,n5,n1+n2+n3-n4-n5)  
            end if
        end if
next
next
next
next
next
	End Sub
End Class