; FACT
;
; Programma per Proteus
;
; (C) 1998-2003 Simone Zanella Productions
;
; Ignora l'ingresso e stampa i fattoriali dei numeri da Start ad End.

Start = 0
End = 20

FOR J = Start TO End
  CONSOLELN "Il fattoriale di " PFORMAT("2d", J) " e': " FACT(J)
NEXT
ABORT 0