Imports System

Public Module Module1

    Public Sub Main()

        Dim num1 as Integer

        Dim num2 as Integer

        Dim ans as Integer

        Console.WriteLine("Enter A Number: ")

        num1 = Console.ReadLine()

        ans = f(num1)

        Console.WriteLine("f({0}) = {1}", num1, ans)

    End Sub

    Function f(x as Integer)

        return 5*X-3

    End Function

End Module