WAP to display factorial of given number

CLS

INPUT "Enter any number ";N

F = 1

FOR I = 1 TO N

F = F * I

NEXT I

PRINT " Factorial =";F

END