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