Найти сумму кубов всех целых чисел в заданном диапазоне - Pascal ABC

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

Найти:1) сумму кубов всех целых чисел от 1 до п (значение п вводится с клавиатуры; 1 < п < 100); 2) сумму кубов всех целых чисел от а до b (значения а иЬ вводятся с клавиатуры; b > a) Спасибо большое заранее.

Решение задачи: «Найти сумму кубов всех целых чисел в заданном диапазоне»

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

program pr;
 
var
  i, n, s: integer;
 
begin
  s := 0;
  writeln('Введите n');
  readln(n);
  if (n > 1) and (n < 100) then
  begin
    for i := 1 to n do
    begin
      s := s + i * i * i;
    end;
    writeln('Сумма кубов от 1 до ', n, ': ', s);
  end
  else writeln('n должно быть больше 1 и меньше 100');
end.

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

Программа начинается с объявления переменных i, n и s типа integer.
Переменная s инициализируется значением 0.
Выводится сообщение «Введите n», и переменная n получает значение, введенное пользователем.
Проверяется условие n > 1 и n < 100. Если оно истинно, то выполняется следующий блок кода.
В цикле for i := 1 до n выполняется следующее:
- Переменная s обновляется значением s + i i i;
- Значение i увеличивается на 1.
После завершения цикла выводится сообщение с суммой кубов чисел от 1 до n.
Если условие n > 1 и n < 100 не выполняется, то выводится сообщение об ошибке.