Пояснение:
1 - исправно, 0 - неисправно
1) Если правы хозяин и сын, а мастер не прав, то противоречий нет.
2) Если правы хозяин и мастер, а сын не прав, противоречие по памяти.
3) Если правы сын и мастер, а хозяин не прав, противоречие по процессору.
Ответ:
<em>Память и винчестер исправны, процессор вышел из строя.</em>
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.