DECLARE FUNCTION FACT(N)
CLS
INPUT " ENTER ANY NUMBER ";N
PRINT "FACTORIAL=";FACT(N)
END

FUNCTION FACT(N)
F = 1
FOR I = 1 TO N
F = F * I
NEXT I
FACT = F
END FUNCTION