Imports System

'Emily Guerrero

'Factorial2 Program

'1/13/21

Public Module Module1

    Public Sub Main()

        Dim value As Integer = 1

        Dim int As Integer 

        Console.WriteLine("Please enter an Integer value of less than 13: ")

        int = Console.ReadLine()

        For i As Integer = int to 1 step -1

        value *= 1

    Next i 

    Console.WriteLine("Value of " & int & "I = " & value)

    End Sub

End Module