Вычислить сумму квадратов всех натуральных чисел, меньших заданного числа А - Pascal

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

Здравствуйте. Помогите решить задачу в Паскаль. Надо вычислить сумму квадратов всех натуральных чисел, меньших заданного числа А.

Решение задачи: «Вычислить сумму квадратов всех натуральных чисел, меньших заданного числа А»

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

program pr;
 
var
  a, sum, i: integer;
 
begin
  writeln('Введите число а');
  readln(a);
  for i := 1 to a - 1 do
  begin
    sum := sum + (i * i);
  end;
  writeln('Сумма квадратов всех натуральных чисел, меньших заданного числа a: ', sum);
end.

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

Программа начинается с объявления переменных a, sum и i типа integer. Далее, пользователю предлагается ввести число a. Это значение сохраняется в переменной a. Затем, в цикле for итерируется от 1 до a-1. Внутри цикла, переменная sum инициализируется как сумма квадратов всех натуральных чисел, меньших a. Затем, внутри цикла выполняется операция умножения i * i и прибавление результата к переменной sum. После завершения цикла, программа выводит сообщение с результатом, содержащим значение переменной sum. Таким образом, программа вычисляет сумму квадратов всех натуральных чисел, меньших заданного числа a.