'C lculo do factorial de um n£mero
                                                                        
CLS

SCREEN 2

INPUT "N£mero "; n

factorial = 1
aux = 1

DO
    factorial = factorial * aux
    aux = aux + 1
LOOP UNTIL (aux > n)

PRINT "Factorial="; factorial

END

' Quest”es:
' - Re-escreva o programa utilizando a estrutura do...loop while...
' - O que acontecer  se a vari vel 'n', obtida por input, for 0 (zero) ?