---

Sub Variant1_ConeVolume()
    ' Объявление переменных для радиуса, высоты и объема
    Dim R As Double, H As Double, V As Double
    Dim PI As Double
    
    ' Задаем константу Пи
    PI = 4 * Atn(1)
    
    ' Приветственное сообщение перед началом работы
    MsgBox "Программа для вычисления объема конуса.", vbInformation, "Вариант 1"
    
    ' Ввод исходных данных с проверкой заголовка окна
    R = InputBox("Введите радиус основания конуса (R):", "Ввод параметров конуса")
    H = InputBox("Введите высоту конуса (H):", "Ввод параметров конуса")
    
    ' Вычисление объема конуса по формуле
    V = (1 / 3) * PI * (R ^ 2) * H
    
    ' Вывод результата в красивом формате (округление до 2 знаков после запятой)
    MsgBox "Исходные данные:" & vbCrLf & _
           "Радиус (R) = " & R & vbCrLf & _
           "Высота (H) = " & H & vbCrLf & vbCrLf & _
           "Объем конуса (V) = " & Format(V, "0.00"), _
           vbOKOnly + vbInformation, "Результат вычислений"
End Sub