pascal
var a,s, i: integer;
begin
s := 0;
a := 1;
for i:=1 to 10 do begin
s:=s+a*a; a:=a+1;
end;
writeln(s)
end.
