---

Sub pr()
    Dim Radius As Double
    Dim Vysota As Double
    Dim Obem As Double
    Dim PI As Double
    
    PI = 3.14
    
    Radius = CDbl(InputBox("Введите радиус основания конуса (R):"))
    Vysota = CDbl(InputBox("Введите высоту конуса (H):"))
    
    Obem = (1 / 3) * PI * (Radius ^ 2) * Vysota
    
    MsgBox "Объем конуса равен: " & Obem, vbInformation, "Результат"
End Sub