QBASIC Program for find factorial

Program to Find Factorial of Number in QBASIC

CLS

PRINT "Finding factorial of a Number"

Fact = 1

INPUT "Enter a Number"; n

FOR i = 1 TO n

    Fact = Fact * 1

NEXT i

PRINT "We get"; Fact

END