Erro de Lógica no Exercício 18

["Marcelo de Melo Silva" <markmelo@ig.com.br>]

Bom dia Leonidas, eu de novo !!!!

Estou com um problema de lógica no exercício 18.
Em implementei o seguinte código:

n:= 3:
x:= 0:
m := n:
for y from n downto 1 do
     if (x > 0 and n > 1) then x := x*(n-1)
     elif (x = 0 and n > 1) then x := n*(n-1)
     else x := 1
     end_if:
end_for:
print(Unquoted,"O fatorial de ",m," é ",x);

                        O fatorial de , 3,  é , 24

E estava esperando o resultado correto. Por favor corrija o passo onde estou
errando:
n    x
3    0
2    6
1

Muito obrigado pela paciência,

Marcelo