Написать в Паскале
Дано действительное число х, натуральное число n.
Вычислить:

var sum:real; n:integer; x,factorial,multiplier:real;
begin
readln(x,n);
factorial:=1;
multiplier:=1;
for n:=1 to n do begin
  factorial*=n;
  multiplier*=x;
  sum+=multiplier/factorial;
end;
writeln(sum);
end.