VBA.
Расчет объема цилиндра

Dim R As Single, p As Single, h As Single, V As Singlep = 3.1415926R = InputBox("Введите радиус основания")h = InputBox("Введите высоту цилинтра")V = p * R ^ 2 * hMsgBox V