Сумма ряда - PascalABC.NET

Добрый день, помогите выполнить задание по информатике

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

//предусловие
begin
  var (x, m, k, c) := (1, 10, 1, 0.0);
  while k <= m do begin
    c += 1 / (2 * k);
    k += x;
  end;
  writeln(c);
end.

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

Сохраняем значения переменных в предварительных условиях begin var (x, m, k, c) := (1, 10, 1, 0.0); end.
Запускаем цикл, который будет выполняться до тех пор, пока значение переменной k не станет больше значения переменной m while k <= m do begin end.
Внутри цикла прибавляем значение 1/2k к переменной c c += 1 / (2 * k); end.
Увеличиваем значение переменной k на значение переменной x k += x; end.
По завершении цикла выводим значение переменной c writeln(c); end.