Module Module1

    Sub Main()
        Console.WriteLine(paragontiko(5))
        Console.WriteLine(paragontiko2(5))
        Console.ReadKey()
    End Sub

    Function paragontiko2(ByVal N As Integer)
        If N = 0 Then
            Return 1
        Else
            Return N * paragontiko2(N - 1)
        End If
    End Function

    Function paragontiko(ByVal N As Integer)
        Dim multiply As Integer = 1

        For count As Integer = 1 To N
            multiply = multiply * count
        Next
        Return multiply
    End Function

End Module
