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

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

program sum;var i,n,s: integer;//целочисленные переменные для счетчика циклов, введенного // числа и суммы членов рядаbegins:=0;// переменная для накопления результата в циклеreadln(n); //Ввод целого числаfor i:=1 to n do //число циклов равно введенному числуs:=s+sqr(i+i+1); // на каждом шаге к предыдущему значению s //добавляется значение (i+(i+1))^2writeln(\'s=\', s); //вывод результата end.