program p;                                                                  

 var                                                                         

   a,b,n,h,S,x:real;                                                               

   Function  f (x:real):real;                                                

   begin                                                                     

   f:= 1+exp(x);                                                     

   end;                                                                     

begin  read(a,b,n);                                                         

        h:=(b-a)/n;                                                          

        s:=0;                                                                

       x:=a;                                                                

  Repeat                                                                    

     s:=s+(f(x)+f(x+h)*h/2;                                            

     x:=x+h;                                                                 

   until x>b ;writeln('s=',s:8:3);                                  

end.                                                                        ­

program y;                                                                 

var                                                                         

    a,b,n,h,S,r,x,c:real;                                                                                                                          

    Function  f (c:real):real;                                               

 begin                                                                    

    f:= 1+exp(c);                                                    

 end;                                                                     

 begin  read(a,b,n);                                                     

           h:=(b-a)/n;                                                             

           s:=0;                                                                   

           r:=0;                                                                   

           x:=a;                                                                   

      Repeat                                                                

     s:=s+f(x)*h;                                                           

     r:=r+f(x+h)*h;                                                         

     x:=x+h;                                                                 

until x>b ;

    writeln('s=',(s+r)/2:8:3);                                  

 end.                                                                     ­