Найти сумму ряда - Pascal (80429)

Программирование алгоритмов циклической структуры с заданным числом повторений. Найти сумму ряда

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

var k: integer;
    s: real;
begin
  s := 0;
  for k := 1 to 50 do s := s + 1 / k / k / k;
  write('S = ', s);
  readln
end.

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

Создается переменная k типа integer для хранения индекса последовательности.
Создается переменная s типа real для хранения суммы ряда.
Устанавливается начальное значение переменной s равное 0.
Начинается цикл, в котором переменная k последовательно принимает значения от 1 до 50.
На каждом шаге цикла к значению переменной s прибавляется выражение 1 / k / k / k, то есть значение из ряда.
Выводится значение переменной s с помощью команды write.
Чтение ввода для ожидания завершения программы с помощью команды readln.