Найти сумму и произведение ряда

program z7;
var
s,sum:real;
k,i,n:integer;
Begin
write('Введите длину ряда:');
readln(n);
sum:=0;
k:=0;
for i:=1 to n do
begin
k:=i;
s:=(exp(ln(-1)*k))/((2*k+1)*k);
sum:=sum+s;
end;
writeln('Сумма ряда = ',sum:3:3);
readln;
end.

var sum: real;
    i, k: integer;
Begin
  write('Введите длину ряда: ');
  readln(k);
  sum := 0;
  for i := 1 to k do sum := sum + (1 - 2 * (k mod 2)) / (2 * k + 1) / k;
  writeln('Сумма ряда = ', sum:3:3);
  readln
end.

var pr, x, cos_k: real;
    i, k: integer;
begin
  write('Введите длину ряда:');
  readln(k);
  write('Введите x:');
  readln(x);
  cos_k := 1;
  pr := 1;
  for i := 1 to k do
    begin
      cos_k := cos_k * cos(abs(x));
      pr := pr * (k / (k + 1) - cos_k)
    end;
  writeln('Произведение ряда = ', pr:3:3);
  readln
end.

var pr, x, cos_k: real;
    i, k, err: integer;
    s: string;
begin
  repeat
    write('Введите длину ряда: ');
    readln(s);
    val(s, k, err);
    if err > 0 then writeln('Некорректный ввод, повторите.')
  until err = 0;
  repeat
    write('Введите x: ');
    readln(s);
    while pos(',', s) > 0 do s[pos(',', s)] = '.';
    val(s, x, err);
    if err > 0 then writeln('Некорректный ввод, повторите.')
  until err = 0;
  cos_k := 1;
  pr := 1;
  for i := 1 to k do
    begin
      cos_k := cos_k * cos(abs(x));
      pr := pr * (k / (k + 1) - cos_k)
    end;
  writeln('Произведение ряда = ', pr:3:3);
  readln
end.