анон, поцчему ввод пределов a и b приходится повторять? и вообще, в чем я тут лох
program integral;
var
k,x,s,S1,c,eps,a,b: real;
function f(k:real):real;`


begin

` if k<0 then f:=-(1+sin(x));
if k>0 then f:=(1+sin(x));
eps:=pi/300;
readln(a,b);
if a>b then writeln('error');
end;
begin
while c<=B-a do
k:=A+k+eps;
s:=((f(k)+f(k-eps))eps/2) ;
S1:=S1+s;
c:=C+eps;

writeln(s1) ;
end.