Imports System
Public Module Module1
Public Sub Main()
Dim a as Integer
dim b as integer
dim c as integer
dim d as integer
a = 49
while a < 75
a = a + 1
Console.WriteLine(a)
end while
b = 11
while b > 0
b = b - 1
Console.writeline(b)
c = 0
while c < 71
c = c + 7
console.writeline(c)
d =
while d < 10
End Sub
End Module