Algoritmo com o comando enquanto

Fazer um programa que calcule e imprima o fatorial de um número fornecido pelo usuário, usando o comando ENQUANTO. Repetir a execução do programa tantas até o usuário responder nao. O fatorial de um número inteiro positivo é definido como o número multiplicado por ele menos 1, menos 2, etc até o valor 1. Por exemplo, o fatorial de 4 é 4x3x2x1=24.
Exemplo de tela de saída:
Entre com um numero: 5
O fatorial de 5 é 120
Outro número (sim/não) ? não

Alguém me ajuda ajuda a fazer esse algoritmo aqui, por favor

algoritmo "Fatorial"
var
numero: inteiro
fatorial: inteiro
inicio
// 1 - Inicializar Variáveis
fatorial <- 1

// 2 - Entrada de Dados
escreva ("Digite o número para calcular a fatorial: ")
leia (numero)

// 3 - Cálculos
enquanto numero > 0 faca
fatorial <- fatorial * numero
numero <- numero - 1
fimenquanto

// 4 - Mensagem de Saída
escreva ("A Fatorial é: ", fatorial)

fimalgoritmo