Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Hello World")
dim x as integer=0
dim a as integer
For x = 1 to 5
do
x=console.readline()
a=x*2
console.writeline(a)
loop while x <>-1
next
End Sub
End Module