Программа

PRINT  'Пропуск строки
INPUT "Введите n ", n%  'Ввод числа
F! = 1  'Начальное определение переменной для набора факториала
FOR i% = 1 TO n%  'Цикл набора факториала
  F! = F! * i%     'Набор факториала
NEXT i%
IF n% >= 0 THEN PRINT USING "##_!=##.###^^^^"; n%; F! ELSE PRINT ; "ОШИБКА"; CHR$(7) 'Вывод результата
END