procedure TForm1.Button1Click(Sender: TObject);
var x,y,h,s,a,b,rect: real;
i,n:integer;
begin
a:=strToFloat(edit2.text);
b:=strToFloat(edit3.text);
n:=strtoint(edit4.text);
h:=(b-a)/n;
s:=0; x:=a;
for i:=0 to n-1 do begin
y:=(x*ln(x))*(x*ln(x));
s:=s+y*h;
x:=x+h;
end;
form2.label2.Caption:=floattostrF(s,ffgeneral,5,0);
end;