Сделайте задачку про сумму, плиз!

[BeaU]

Найти сумму (-1)*(-1)+2*2+(-3)*(-3)+4*4+...+10*10.
Условный оператор не использовать.

[Hacker19_90]

for i := 1 to 10 do
Sum := Sum + sqr(i)

[SWAT92Shtorm]

uses crt;
Var i,sum,n:integer;
begin
clrscr;
 writeln('До скольки');readln(n);
 sum:= 0;
 for i:=1 to n do
   Sum:= sum + sqr(i);

writeln('Сумма ',sum);
readln;
end.

Вота полный код =)