Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim x as integer = Console.ReadLine()

        Dim y as integer  

        For i = 1 To 9

        y = x * i

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

        Next

    End Sub

End Module

​