var a:array [1..1000] of integer;
i,k,n,sum: integer; 
begin
n:=20;
for i:= 1 to n do 
a[i]:=random(21)-10;
sum:=0; k:=0;

for i:= 1 to n do 
write(a[i],' ');

for i:= 1 to n do 
 if (a[i]>0) and (k<4) then begin inc(k); sum:=sum+a[i]; end;
writeln();
writeln (sum);
end.