сделать трассировку программы. var a, sum, npos, nneg: integer; begin
sum := 0; npos := 0; nneg := 0; readln(a); while a <> 0 do begin
sum := sum + a;
if (a < 0) then nneg := nneg + 1 else npos := npos + 1; readln(a);
end;
writeln(sum); writeln (npos - nneg)
end.
