Imports System.Math


        '''''' Функция ''''''
        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

            'RETURN
            f = result
            'RETURN
        End Function
        '''''''''''''''''''''