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

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