8.3.. Izračunati proizvod prirodnih od a do b.

Listing programa:

REM 08312067
CLS
INPUT "Unesi pocetnu i krajnju vrijednost:", a, b
   IF a < 0 OR b < a GOTO 10
i = a
p = 1
DO
    p = p * i
    i = i + 1
LOOP UNTIL i > b
PRINT p
END

Ispis na ekranu:

Index