'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)

            Console.WriteLine("Hello, world!")

            Dim x As Double
            x = 0.15


        End Sub


        '''''' Функция ''''''
        Function f(a, x, y As Double) as Double
            Dim result, min as Double

            If (x<0) Then
                result = Max(Min(a, x^a, 2.71^(x*a)), a*x+1)
            ElseIf (x>=0) and (x<=7) Then
                result = cos(x)^2+(sin(x)^2*Max(x,y))
            Else
                result = 1 + 3 * cos(abs(x+y))
            End If

        End Function
        '''''''''''''''''''''

    End Module
End Namespace