Program p727;
const maxn=10;
type myarray=array[0..maxn] of integer;
var a:myarray;
sum,i,n:integer;
begin
write('vv n');
readln(n);
writeln('vv massiv');
for i:=1 to n do
read(a[i]);
sum:=0;
for i:=1 to n do
if a[i]>0 then inc(sum, a[i]*2);
writeln('sum=',sum);
END.