فکر کنم پاسکال توان ندارد.
باید متوالی ضرب کنید.
برنامه زیر حجم کره است:
کد:
program volume_of_sphere;
uses
WinCrt;
const
pi=3.14;
Var
radius,volume :real;
begin
writeln('Enter the radius of the sphere:');
readln(radius);
volume:=(4*pi*radius*radius*radius)/3;
writeln('The volume of the sphere is =',volume);
end.