Составить программу, которая по введенному номеру и величине радиуса вычисляла: 1 - длину окружности, 2 - площадь круга, 3 - объем шара.

Const

Pi=3.1416;

var

n:integer;

r:real;

begin

Write ('Укажите вариант расчета и радиус: ') ;

Read (n, r) ;

case n of

1:Writeln ('Длина окружности равна ',2*Pi*r) ;

2:Writeln ('Пдощадь круга равна ', Pi*r*r) ;

3:Writeln ('Объем шара равен ',4/3*Pi*r*r*r)

else Writeln ('Вариант должет быть равен 1,2 или 3')

end

end.

Пример

Укажите вариант расчета и радиус: 3 11.7

Объем шара равен 6708.8365344