I need help programming a Reimann sum.

Code so far:

```
Prompt A,B,N //where [A,B] is the interval we are trying to find the sum for, and N is the number of rectangles to divide the interval into
(B-A)/N -> deltaX
Delvar C
For(I,1,N)
//evaluate the function in Y1 [f(X)] at A+IdeltaX; then multiply by deltaX. This will take the height [f(A+IdeltaX)] of the function at each interval and multiply it by the width
Ans+C->C //add the area to the total
End
Disp Round(C,2)//display the area
Return
```

live the life because the life is good —vivir la vida, porque la vida es buena

Vie la vie que la vie est bonne quod est bonum vitae in vita

lebe das Leben, weil das Leben ist gut —vivere la vita, perché la vita è buona