function factorial(n: integer): Biginteger;
begin
result := 1;
for var i := 2 to n do
result *= i
end;
begin
var x := Arr(1, 2, 3);
var n := Arr(10, 10, 20);
for var i := 0 to 2 do
begin
var s := 0.0;
for var j := 1 to n[i] do
s += x[i] / factorial(j);
Writeln('x = ',x[i],'; n = ', n[i],'; ', s:0:5)
end;
end.
