var a:array[1..10] of integer;   i,s:integer;
begin
for i:=1 to 10 do begin a[i]:=random(10)+1; write(a[i]:3); end;
for i:=1 to 10 do
s:=s+a[i];
writeln;
writeln('s=',s);
end.