Imports System

Public Module Module1

    Public Sub Main()

        Dim intValue As Integer

        Dim num As Integer = 1 

        Console.Write("Enter the an Integer Value: ")

        intValue = Console.ReadLine()

        Do 

            num  = intValue * (intValue -1 )

            Console.writeline(num)

            if num = 0 Then 

                num = 1

            End if 

        Loop until intValue =0 

        Console.WriteLine(num)

    End Sub

End Module