Вычисление суммы натуральных чисел от 1 до n - PascalABC.NET

Доброго дня, Помогите пожалуйста написать программу вычисления суммы натуральных чисел от 1 до n циклами.

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

Begin
Var (N, S):= (ReadlnInteger('N = '),0);
For var i:=1 to N do S += i;
WritelnFormat('При N = {0} S имеет значение {1}',N,S);
end.

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

В этом коде:

Var (N, S):= (ReadlnInteger('N = '),0); - вводится и обрабатывается число N, которое представляет собой количество натуральных чисел, для которых нужно посчитать сумму. Переменной S присваивается начальное значение 0.
For var i:=1 to N do S += i; - происходит цикл по числам от 1 до N. На каждой итерации значение переменной S увеличивается на текущее значение i.
WritelnFormat('При N = {0} S имеет значение {1}',N,S); - выводится отформатированная строка, сообщающая значения N и S. Следует заметить, что в данном коде не проверяется на какое число закончится цикл (не проверяется переполнение переменной S), что может привести к ошибке при больших значениях N.