[Shuuuuter]

задача:Дано целое число N(>0). Найти сумму N^2+(N+1)^2+(N+2)^2+...+(2N)^2 - (целое число).
вот мое решение:

Код:

var a,e,d:real;
n,i:integer;
begin
read(n);
d:=n*n;
e:=1;
while e<>n do
begin
d:=d+sqr(d+e);
e:=e+1;
end;
write(d);
end.

я решаю онлайн. сдаю че то не принемет