Программа

DECLARE FUNCTION Factorial# (X%)

PRINT Factorial#(7)
END

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