Imports System

Public Module Module1

    Public Sub Main()

                Console.WriteLine("Enter a number")

        Dim x as decimal

        Dim n as decimal

        n = 1

        x = Console.Readline()

        Console.Writeline(x)

        For i = 1 To x

        n = n*x

        x = x-1

        next

    Console.WriteLine(n)

    End Sub

End Module