8.3.. Izračunati aritmetičku sredinu prirodnih brojeva od k do n.

Listing programa:

REM 08313023  {
CLS
INPUT "k=", k
INPUT "n=", n
IF k < n THEN
    s = 0
    br = 0
    i = k
    DO
        s = s + i
        br = br + 1
        i = i + 1
    LOOP UNTIL i > n
    a = s / br
    PRINT a
ELSE
    PRINT "Nije definisano"
END IF
END

Ispis na ekranu:

Index