Решение задач на Pascal. Вычисление суммы алгебраической прогрессии

Постановка задачи: Найти сумму алгебраической прогрессии \(\sum_{i=1}^{n}\left ( i+k \right )\), где k - целая константа
Код программы Схема алгоритма