uses crt;
function f(x:real):real;
begin
f:=ln(x*x*sqrt(x))
end;
var x,h,s:real;
begin
clrscr;
x:=3;
h:=0.3;
s:=0;
while x<=6 do
 begin
  x:=x+h;
  s:=s+f(x)*h
 end;
write('Интеграл=',s:0:2);
readln
end.