Question

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

Answer 1

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