---

```
`Module Program

    Sub Main()
        Dim x As Double
        Dim y As Double

        Console.Write("Введите значение X: ")
        x = Convert.ToDouble(Console.ReadLine())

        If x < -3 Then
            y = x ^ 2 - 5
        Else
            y = Math.Sqrt(x + 4)
        End If

        Console.WriteLine("Значение Y = " & y)

        Console.WriteLine()
        Console.WriteLine("Нажмите любую клавишу для завершения...")
        Console.ReadKey()
    End Sub

End Module`
```