# Factorial Calculator
# by Martin del Rio
# https://www.ldpl-lang.org/
# Created for LDPL 1.0

DATA:
result is number
n is number

PROCEDURE:
# Ask for a number
display "Enter a number: "
accept n

# Default result
store 1 in result

# Calculate factorial
while n is greater than 0 do
    in result solve result * n
    in n solve n - 1
repeat

# Display result
display "Factorial: " result crlf