8.1.. Prebrojati prirodne brojeve od 1 do n.

Listing programa:

REM 08112084 
CLS
INPUT "Unesi broj n:", n
FOR i = 1 TO n
    br = br + 1
NEXT i
PRINT br
END

Ispis na ekranu:

Index