<span>операторы машинного доения
рекламащик
инженер программист
</span><span>
</span>
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.
В вопросе скорей всего ошибка.
Наверно имеется ввиду 1 пиксель, а не бит.
Глубина цвета = 32 бита, значит 1 пиксель кодируется 32 битами
32 бита=4 байта