{ EULER.PAS                                      Copyright (c) Pheo }
{ Výpočet Eulerovej konštanty.                                      }
{                                                                   }
{ Datum:19.06.1996                             http://www.trsek.com }
 
program euler;
uses crt;
var p,i:word;
    e:real;
    
function faktorial(x:integer):longint;
var i,s:longint;
begin
   s:=1;
   for i:=1 to x do s:=s*i;
   faktorial:=s;
end;
 
begin
   e:=0;
   writeln('Zvol stupen presnosti od 3 do 33');
   read(p);
   for i:=1 to p do
     e:=e+i/faktorial(i);
   writeln(e:1:10);
   repeat until keypressed
end.