ALGORITMO FIBONACCI
VAR
N, I, F, PRIMO, SECONDO
BEGIN
PRINT “INSERIRE N”
READ N
IF N > 0
PRIMO := 0
SECONDO := 1
I := 2
PRINT “TERMINE 1 = 1”
WHILE I < = N
F PRIMO + SECONDO
PRINT “TERMINE” . I . “=” . F
PRIMO := SECONDO
SECONDO := F
I := I + 1
ENDWHILE
ELSE
PRINT “ERRORE N < 0”
ENDIF
END