Найдите значение выражения: exp(x)/sin(1!)+ exp(exp(x-1))/sin(2!)+…+ exp(exp(…exp(1)…)/sin(x!) — Pascal(Паскаль)

program PascalGuru;

function fact(n: integer): longint;
begin
  if n = 1 then
    fact := 1
  else
    fact := fact(n - 1) * n;
end;

{ ------------------------------------ }
function expi(x: real; n: longint): real;
var
  i: integer;
begin
  for i := 1 to n do
    x := exp(x - (n - 1));
  expi := x;
end;

{ ------------------------------------ }
var
  x, i: longint;
  summa: real;

begin
  write('X: ');
  readln(x);

  summa := 0;
  for i := 1 to x do
    summa := summa + expi(x, i) / sin(fact(i));

  writeln('Summa= ', summa:0:2);

  readln;

end.