{* Задача111 *}

REM basic

' Определить объём и площадь боковой поверхности цилиндра с заданными радиусом основания R и высотой H.


CLS
INPUT "Введите высоту цилиндра : ", H
INPUT "Введите радиус основания : ", R
V = 3.14 * R ^ 2 * H
S = 2 * 3.14 * R * H : PRINT
PRINT "Объем цилиндра = "; V
PRINT "Площадь боковой поверхности = "; S
End