Var
 x:byte;

Function Fact(z:byte):Integer;
var
 n:byte;
 Fct:Integer;
begin
 Fct:=1;
 for n:=1 to z do Fct:=Fct*n;
 Fact:=Fct;
end;

Begin
 for x:=0 to 6 do writeln('x = ',x,'     F = ',Exp(-x)-Fact(x):10:5);
 Readln
End.