ALGORTIMO FATTORIALE
VAR
N, I, F
BEGIN
PRINT “INSERIRE N”
READ N
IF N > 0
I:=0
F:=1
WHILE I < N
F:= F x (N – I)
I:= I + 1
ENDWHILE
PRINT N . “!=” . F
ELSE
PRINT “ERRORE N < 0”
ENDIF
END