Напишите программу на языке PascalABC.NET

begin
  var (fact,eps,s,x):=(1.0,0.001,0.0,1);
  while true do begin
    fact:=fact*x;
    var a:=Power(2/x,x)*fact;
    if Abs(a)>eps then begin x+=1; s+=a end
    else Break
    end;
  Writeln('S = ',s:0:3)
end.


S = 12.946