алг
нач
    цел n, результат
    вывод "Введите число: "
    ввод n
    результат := факториал(n)
    вывод n, "! = ", результат, нс
кон

алг цел факториал(цел n)
нач
    если n <= 1
    то
        знач := 1
    иначе
        знач := n * факториал(n - 1)
    все
кон