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

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

Здравствуйте. Помогите решить задачи в Паскаль. Надо ввести с клавиатуры целое число, если число отрицательное, то уменьшить его на 10 и вывести на экран, указав, что оно отрицательное. Это первая задача. Вторая: составить программу, которая выведет на экран первые 15 элементов следующей последовательности:1, 2, 4, 7, 11, 16. Вычислить сумму квадратов всех целых чисел, меньших заданного числа А. Желательно с пояснением

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

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

var i:byte;
begin
for i:=0 to 14 do
write(i*(i+1)div 2+1,' ')
end.

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

Переменная i инициализируется значением byte, что означает, что она может содержать только целочисленные значения от -128 до 127.
В цикле for переменная i итерируется от 0 до 14. Это означает, что будут вычислены суммы квадратов всех целых чисел от 0 до 14.
Внутри цикла переменная i умножается на i+1. Это дает нам сумму квадратов всех чисел от 0 до i.
Затем результат умножения делится на 2, чтобы получить сумму квадратов нечетных чисел.
Наконец, к результату добавляется 1, чтобы получить сумму квадратов всех целых чисел от 0 до i.
Все эти суммы квадратов записываются на экран с помощью функции write.
Код заканчивается без использования вложенных списков.