Составить программу, которая по введенному номеру и величине радиуса вычисляла: 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