program test;
var a: array [1..10] of integer;
i,s: integer;
begin
s:=0;
for i:=1 to 10 do
a[i]:=2*i;
writeln('a[',i,']=',a[i]);
s:=s+a[i]
end;
write('s= ',s)
end.
