var a, k, n, positive_sum, negative_multiplication, positive, negative:integer;
Begin
    Write ('Вводите числа') ;
    positive_sum := 0; negative_multiplication:=1;
    Read(a);
    While a<>0 do begin
        If a > 0 then
        begin
            positive := positive + 1;
            positive_sum := positive_sum + a;
        end;

        If a < 0 then
        begin
            negative := negative + 1;
            negative_multiplication := negative_multiplication * a;
        end;

        Read(a);
    end;
    Writeln('Положительных: ', positive);
    Writeln('Отрицательных: ', negative);

    Writeln('Сумаа положительных: ', positive_sum);
    Writeln('Произведение отрицательных: ', negative_multiplication);
end.