Объяснение:
var A:array [0..30000] of longint;
n,i,sum:integer;
begin
n:=10;
for i:=1 to n do begin
n:=i*i;
write (n,'+');
sum:=n+sum;
end;
writeln (' Сумма = ',sum)
end.
