CrazyCoder Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=1 to 10 do 
begin
writeln(i*i);
sum:=sum+i*i;
end;
write('сумма: ',sum);
end.

AnonimusPro

Verified answer

Вот решение вашей задачи