Fatorial com Pascal

Aqui vai uma solução bem simples para um algorítmo de fatorial. Ele resolve o problema escrevendo menos e facilitando a compreensão. Definindo o valor da váriavel "fator" para 1(um), eliminamos a necessidade do "if" caso o número escolhido seja 0(zero).

PSEUDO LINGUAGEM:
programa fatorial
variáveis n, fator, iter: inteiro
início leia (n)
fator <-1 para iter <-1 até n faça fator <- fator * iter escreva (fator)
fim


PASCAL:
program fatorial;
var n, fator, iter: integer;
begin write('Digite um numero: ');
readln(n);
fator:=1;
for iter:=1 to n do fator:=fator*iter;
writeln('Resultado: ',fator);
end.


Para lembrar!
Fatorial é um produto que tem seus fatores em progressão aritmética. Ou seja, até "n"(onde n é o número a ser fatorado) os números são multiplicados em sequência, a partir de 1 até o número escolhido.
Ex.: n=8 1x2x3x4x5x6x7x8=40320