Número de Euler com Pascal

Não é muito complicado, mas para quem está começando adaptar e calcular uma aproximação do Número de Euler pode dar muito trabalho. Aqui vai uma solução bem simples para um algorítmo que calcula uma aproximação definida pelo usuário para o Numero de Euler.

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

PASCAL:
Program Euler;
Var num,fator,iter:integer; e:real;
//define variavel "e" como real
Begin
write('Entre com um numero: ');
readln(num);
fator:=1;
e:=1;
for iter:=1 to num do
begin //inicia o bloco "for"
fator:=fator*iter; //multiplica as variaveis "fator" e "iter" e atribui o resultado para a variavel "fator"
e:=e+(1/fator); //divide 1 pela variavel "fator", soma com a variavel "e" e atribui o resultado a variavel "e"
end;
writeln('Resultado: ',e);
End.

Para lembrar!

O Número de Euler é calculado da seguinte forma: É feito o fatorial do denominador, depois dividido pelo numerador e em somado ao resultado anterior.

Ex.: simulando a segunda iteração numa aproximação de Euler (e=1)+(1/2=0,5)=1,5