Помогите с задачей по информатике. (фото прикрепил)

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.