Нахождение интегралов в среде Pascal

Найти интеграл функции sin (x+10) +x.Writeln ('vsego interaciy:', round (abs (x2-x1) /e)).For c:=1 to round (abs (x2-x1) /e) do begin.Write ('Integration ', c, chr (13)).Writeln ('INTEGRAL=', i).If s=2 then begin.Fx:=sin (x+10) +x*x*x*x; {function}.=i+abs (xx1+xx2) /2*e.=i+abs (xx2-xx1) *e+abs (xx3) *e.Dx, x1, x2, e, i, c, s:real.