var n,i,s,k:integer;Begin for i:=1 to 7 do Begin read(n); if n>0 then k:=k+1; if n<0 then s:=s+n; end; writeln(k,s);End.
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.