PUBLIC SUB Main()
DIM in AS Integer
DIM ans AS Integer
DIM i AS Integer
INPUT in
FOR i = in TO 1 STEP -1
ans = ans * i
NEXT
PRINT ans
END
Учти, что до этого не работал с бэйсиком, так что если есть компилятор, то лучше попробуй запустить.