program z716;
uses crt;
const n=10;
var x:array[1 ..n] of integer; y :array[1..n] of integer;
k,s,i,c:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin x[i]:=random(30);
write(x[i]:7);end;
for i:=1 to n do
y[1]:=x[1]+x[i+1];
for i:=2 to n do begin
y[i]:=y[i-1]+x[i];
write(y[i]:7);
end;
writeln;
readln;
END.