---

Sub Zadanie9()
    Dim R, H, S As Double
    R = InputBox("Введите радиус:")
    H = InputBox("Введите высоту:")
    S = 2 * 3.14159 * R * H
    MsgBox "Площадь боковой поверхности = " & S
End Sub