program brainly;
var
  summ1, number, summ2, plus, minus :integer;
begin
  repeat
    Write('Введите число: ');
    ReadLn(number);
    summ1 := summ1 + number;
    if number > 0 then plus += 1;
    if number < 0 then minus += 1;
  until number = 0;
  summ2 := plus - minus;
  WriteLn('Сумма чисел: ', summ1);
  WriteLn('Разность количества положительных и отрицательных чисел: ', summ2);
end.