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