Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)

Вот прога на паскале:

program sym

var p:array[1..12] of integer;

s,i:integer;

Begin

s:=0;

For i:=1 to 12 do

p[i]:=i*i; //если нет уже готового массива

For i:=1 to 12 do

s:=s+p[i];

write(s)

end.

Ну тут кстати массив излишен, если надо просто найти сумму:

program sym1

var s,i:integer;

Begin

s:=0;

For i:=1 to 12 do

s:=s+i*i;

write(s)

end.

Я у себя не проверял, но должно работать)