134 -5-a SIN تكامل ال

      READ(*,*)N,A,B
      SUM=0.0
      DX=(B-A)/N
      DO 20 I=1,N
      X=A+I*DX
      Y=SIN(X)
      AREA=Y*DX
      SUM=SUM+AREA
  20  CONTINUE
      WRITE(*,*) SUM/3,14
      STOP
      END