Def. Integral of Cubic Function .pas

(*) blah-blah.

function cubef(x:real):real;

begin

cubef:= x*x*x;

end;

const

step=1;

var

i:byte;

a1:byte;

a2:byte;

s:real;

begin

s:=0;

a1:=0;

a2:=9;

for i:=a1 to a2 do begin

s:=s + cubef(i*step)*step;

end;

writeln(s);

end.