karasikov 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
Учти, что до этого не работал с бэйсиком, так что если есть компилятор, то лучше попробуй запустить.