8.3.. Izračunati proizvod parnih prirodnih brojeva od 1 do 5.

Listing programa:

REM p08312061
CLS
S = 0
I = 1
DO
  IF I MOD 2 = 0 THEN
    S = S + I
  END IF
  I = I + 1
LOOP UNTIL I > 5
PRINT  S
END

Ispis na ekranu:

Index