Imports System

Public Module Module1

    Public Sub Main()

        Dim x as integer

        Console.WriteLine("write a random number")

        x = console.ReadLine()

        if (x >=1) then 

            for i = 1 to 10  

        Console.WriteLine( x & " x "  & i & " = " & (i*x))

        next 

    End if 

    End Sub

End Module