Вычислить сумму ряда - Pascal (80403)

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

Написать программу для нахождения значения переменной S по формуле: S=1+3+...+2n-1.

Решение задачи: «Вычислить сумму ряда»

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

var n, i, s:integer;
 
begin
  writeln('Введите n:');
  read(n);
  s:= 0;
  i:= 1;
  repeat
    s += i;
    i += 2;
  until (i = 2 * n + 1);
  writeln('Искомая сумма:', s);
end.

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

Объявляются три переменные целого типа: n, i, s.
Выводится на экран сообщение Введите n:.
Вводится значение переменной n.
Переменной s присваивается значение 0, а переменной i присваивается значение 1.
Начинается цикл repeat.
Внутри цикла происходит сложение значения переменной s с текущим значением переменной i и результат присваивается переменной s.
Значение переменной i увеличивается на 2.
Цикл повторяется, пока значение переменной i не станет равным 2 * n + 1.
После завершения цикла выводится на экран сообщение Искомая сумма: с последующим значением переменной s. Этот код вычисляет сумму ряда от 1 до (2 * n + 1), где каждый следующий элемент последовательности больше предыдущего на 2, и выводит результат в консоль.