program sum;

const
  e = 0.001;

var
  x, a, summa: real;
  k: integer;

function ReversedFactorial(n: word): double;
begin
  if n = 0 then 
    ReversedFactorial := 1
  else 
    ReversedFactorial := 1 / n * ReversedFactorial(n - 1);
end;

begin
  writeln('Введите x:');
  readln(x);
  summa := 0;
  k := 1;
  a := 1.9 * x + exp(k * ln(7));
  while (abs(a) > e) do
  begin
    summa := summa + a;
    k := k + 1; 
    a := (1.9 * x + exp(k * ln(7))) * ReversedFactorial(k);
  end;
  writeln('Сумма=', summa:5:2);
  writeln('Количество слагаемых=', k - 1);
end.