Module Module1
    Function potega(ByVal x As Double, ByVal n As Double) As Double

        Dim res As Double
        If n = 0 Then
            res = 1
        Else
            res = x * potega(x, n - 1)
        End If

        Return res
    End Function

    Sub Main()

        Dim x, n As Double

        Console.WriteLine("podaj liczbe: ")
        x = Console.ReadLine()
        Console.WriteLine("podaj potege")
        n = Console.ReadLine
        Console.WriteLine("{0}^{1}={2}", x, n, potega(x, n))
        Console.ReadKey()

    End Sub

End Module