Помогите решить задачу на циклы.

[kola1010]

Условие задачи:
Дано целое число N (>0). Нужно найти его сумму N2 + (N+1)2 + (N+2)2 + … + (2·N)2.

Заранее благодарен.

[Arigato]

N2 - это как? Умножить, возвести в квадрат?

[kola1010]

Возвести в квадрат

[Plague]

var n,a,x,y:longint;
begin
  readln(n);
  a:=n-1;
  x:=a*(a+1)*(2*a+1);
  a:=2*n;
  y:=a*(a+1)*(2*a+1);
  writeln('Summa = ',(y-x) div 6);
end.