Дано целое число N (>0). Найти сумму (1+2) ^2 + (2+3) ^2 + ... + (N + (N+1)) ^2 Написать программу для Pascal

Текст рабочей программы с комментариями.

program sum;

var i, n, s: integer; //целочисленные переменные для счетчика циклов, введенного

/ / числа и суммы членов ряда

begin

s:=0; / / переменная для накопления результата в цикле

readln (n); / /Ввод целого числа

for i:=1 to n do / /число циклов равно введенному числу

s:=s+sqr (i+i+1); / / на каждом шаге к предыдущему значению s

//добавляется значение (i + (i+1)) ^2

writeln ('s=', s); / /вывод результата

end.