Возможно нужна доработка var a: array[1..n] of integer; b: array[1..n+1] of integer; i,j,s:integer; begin cls; for i:=1 to n do begin a:=random(25)+1; write(a,); end; writeln; b[1]:=a[1]; i:=2; while i<=n do begin s:=0; for j:=1 to i-1 do s:=s+a[j]; b:=s; inc(i) end; for i:=1 to n do write(b,) end.