a:=strtofloat(Form1.edit2.text);
b:=strtofloat(Form1.edit3.text);
n:=strtoint(Form1.edit4.text);
Chart1LineSeries1.Clear;
n:=0;
for i:=1 to 20 do
begin
n:=n+10;
x:=a;
s:=0;
h:=(b-a)/n;
for j:=1 to n-1 do
begin
x:=x+h;
y:=(x*ln(x))*(x*ln(x));
s:=s+y;
end;
fa:=(a*ln(a))*(a*ln(a));
fb:=(b*ln(b))*(b*ln(b));
k:=(2*s+fa+fb)/2*h;
Chart1LineSeries1.addxy(n,k);
end;
end;