Imports System

Public Module Module1

    Public Sub Main()

        dim x,y as integer

        Console.WriteLine("Input a number:")

        x = console.ReadLine()

        y = 0 

        do 

            console.WriteLine(2*x)

            x = console.ReadLine()

            y = y +1

        loop until x = -1 or y = 5

    End Sub

End Module