8.1.. Proizvod prirodnih od 1 do n.

Listing programa:

1 REM 08112041
INPUT " do ", n
p = 1
FOR i = 1 TO n
    p = p * i
NEXT i
PRINT "Proizvod = ", p
END

Ispis na ekranu:

Index