Дано целое число N(amp;gt;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.