program PascalGuru;
 
function fact(n:integer):longint;
begin
if n=1 then fact:=1
         else fact:=fact(n-1)*n;
end;
{------------------------------------}
function expi(x:real;n:longint):real;
var i:integer;
begin
for i:=1 to n do x:=exp(x-(n-1));
expi:=x;
end;
{------------------------------------}
var x,i:longint;
    summa:real;
 
begin
write('X: ');
readln(x);
 
summa:=0;
for i:=1 to x do summa:=summa+expi(x,i)/sin(fact(i));
 
writeln('Summa= ',summa:0:2);
 
readln;
end.