INTEIRO var1
INTEIRO var2
ESCREVA "Escreva um numero: "
LEIA var1
var2 := 1
_C0: if 1 > 1 goto _C1
_L0: if var1 < 1 goto _L1 
T1 := var1 var2 /
T2 := T1 1 *
var2 := T2 2 +
var1 := var1 1 -
_L1:
_C1:
_L51: if 2 < 1 goto _L52 
ESCREVA "a"
_L52:
ESCREVA "fatorial de: "
ESCREVA var1
ESCREVA "\n"