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

Предыдущий
вопрос Следующий
вопрос

program SumOfSquares;

var
N, sum, i: integer;

begin
sum := 0;

write('Введите целое число N (> 0): ');
readln(N);

for i := 1 to N do
begin
sum := sum + ((i + (i + 1)) * (i + (i + 1)));
end;

writeln('Сумма квадратов равна: ', sum);
end.