Программа

DEF FNF# (X%)                'Вычисление факториала
  IF X% = 0 THEN FNF# = 1 ELSE IF X% > 0 THEN FNF# = X% * FNF#(X% - 1) ELSE FNF# = 0
  'Если параметр =0, то - определение факториала как 1, иначе - если параметр >0, то - набор факториала, иначе - неверный вызов функции
END DEF

PRINT FNF#(7)
END