айди объём шара, если длина радиуса вводится с клавиатуры.

Объём шара вычисляется по формуле: V=43π⋅R3.
Опиши константу: π=3,14 и ответ должен быть округлён до десятых.
Выведи ответ, если длина радиуса 3.

var r,v:real;const p=3.14;beginwriteln('Введите радиус=');read(r);v:=4/3*p*(power(r,3));if (r=3) then writeln('Обьем окружности=',v:0:1)elsewriteln('Введите другой радиус');end.