Сумма с факториалом - Turbo Pascal (29939)

Формулировка задачи:

Дано натуральное число n и действительное число х. Вычислить

                    Листинг программы
                
 
                        
                          
                    
program unit13;
uses crt;
var K,n:integer;
    s,x:real;
begin
clrscr;
writeln;
write('Введите  n=');
readln(n);
write('Введите  x=');
readln(x);
S:=K;
for K:=1 to n do
s:=s+(exp(x*ln(k)))/((K*K+1)*(K*K+1));
writeln('S=',s:5:2);
writeln('_______________________');
readkey;
end.

Пожалуста помогите я неверно задание зделал, кто может переписать?

Решение задачи: «Сумма с факториалом»

Листинг программы

program unit13;
uses crt;
var n,k,i,f:longint;
    s,x,c,f1:real;
begin
clrscr;
writeln;
repeat
write('Введите n от 1 до 4 n=');
readln(n);
until n in [1..4];
write('Введите x=');
readln(x);
s:=0;
f:=1;
c:=1;
for k:=1 to n do
 begin
  c:=c*x;
  f:=f*k;
  f1:=1;
  for i:=1 to f+1 do
  f1:=f1*i;
  s:=s+c/f1;
 end;
writeln('S=',s:0:11);
readkey;
end.

Объяснение кода листинга программы

Программа начинается с объявления переменных n, k, i, f и s, x, c, f1:longint; real.
Строка clrscr; очищает экран.
В цикле repeat-until запрашивается значение переменной n от 1 до 4 и сохраняется в переменной n.
Затем запрашивается значение переменной x и сохраняется в переменной x.
Переменные s, x, c, f1 инициализируются нулями.
В цикле for k:=1 до n do происходит расчет факториала числа k и сохраняется в переменной f.
Затем рассчитывается сумма c/f1 и сохраняется в переменной s.
Цикл for i:=1 до f+1 do рассчитывает факториал числа i и сохраняет его в переменной f1.
После завершения цикла for i=1 to f+1 do переменная f1 содержит факториал числа f+1.
Значение переменной s, полученное в результате суммирования c/f1, выводится на экран.
Программа завершается вызовом readkey, который позволяет пользователю нажать любую клавишу для выхода из программы.