For a = 1 To 2For b = 1 To aFor c = b To 5d = d + 1