Написать программу которая вычисляет объем сферы с предварительной проверкой...

Question

Написать программу которая вычисляет объем сферы с предварительной проверкой неотрицательности радиуса сферы

Answer 1

Var radius: Integer;
begin
Read(radius);
if(radius<0) then<br>WriteLn('Радиус не может быть отрицателен')
else
Writeln(4/3* pi * exp(ln(radius) * 3));
end.