Imports System
Public Module Module1
Public Sub Main()
dim d1 as decimal
dim counter as integer
d1 = console.readline()
do
counter = counter + 1
console.writeline(d1 * counter)
loop until counter = 12
End Sub
End Module
imports System
public module module1
public sub main()
call sub1()
end sub
public sub sub1()
dim n1 as integer
n1 = console.readline()
dim icount as integer
Do While iCount < 11
iCount = iCount + 1
for icount = 1 to 12
console.n1 = n1 + 3
'console.writeline(n1 + 3*icount)
next
end module