Program euler;

uses crt;

var e,faktorial,f, ep: real; i,n:integer;

begin

writeln;write('vloz pocet aproximaci(do 50):');read(n);writeln;

 f:=1; 

 ep:=1;

 for  i:=1 to n do

        begin

             faktorial:= f*i;

             f:=faktorial; 

             e:=ep + (1/faktorial);

             ep:=e

        end;

 write('e=',e:2:30);

 writeln;

 repeat until keypressed;

end.