Program zad;
uses crt;
const n=10;
var x:array[1..n] of integer;
s,k,m:integer;
Begin
clrscr;
randomize;
   for k:=1 to (n) do
       begin x[k]:=random(15)+3;
        write(x[k]:5); end;
   writeln;
   s:=0;
       for k:=2 to n do begin
      s:=s+x[k-1]; x[k]:=s;
   writeln(s); end;
       for k:=1 to n do begin
   write(x[k]:5);end;
writeln;
readln;
End.