Euler Number

Program euler_number;
uses wincrt;
var i : integer;
    eul, deret : real;

function faktor(n:longint): longint;
var
  j: integer; y : longint;
begin
     y := 1;
     if n = 0 then y :=1
     else
         for j:=1 to n do y := y*j;
     faktor:= y;
end;
begin
     eul := 0;   i:=0;
     Repeat
        deret := 1/faktor(i);
        eul := eul + deret;
        i := i + 1;
     Until deret <= 0.0000000000001;
     Writeln('phenomenological of euler number is :  ',eul);
end.

 

if we run the statement,we are get output like this :