Написать программу вычисления величины А с применениями оператора FOR - Pascal ABC

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

Написать программу вычисления величины А с применениями оператора FOR

Решение задачи: «Написать программу вычисления величины А с применениями оператора FOR»

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

uses crt;
var a, n, m: integer;
begin
  repeat
    write('m > 1;  m = ');
    readln(m)
  until m >= 1;
  a := 1;
  for n := 1 to m do a := a + 2 * n - 1;
  writeln('A = ', a);
  readln;
end.

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

В первой строке используется библиотека crt, которая является стандартной для языка Pascal ABC.
Переменные a, n и m объявлены как целые числа.
В цикле repeat-until проверяется условие m >= 1. Цикл продолжается до тех пор, пока это условие истинно.
В каждой итерации цикла readln считывается значение переменной m.
Переменная a инициализируется значением 1.
Затем следует цикл for, который выполняется от 1 до m. В каждой итерации к переменной a прибавляется 2 * n - 1, где n - значение переменной, текущее значение которой считывается в каждой итерации цикла.
После завершения цикла for выводится значение переменной a с помощью функции writeln.
Завершается программа вызовом readln для считывания ввода пользователя.