const x = array(1,2,-3,4,-5,6,7);
         y  = array(1,-2,3);
var
        pol, otr : integer;
begin
        pol := 0; otr := 0;
        for i:=0 to 6 do
             if x[i]>=0 then inc(pol) else
                                    dec(pol);
       writeln('X: ','noJlo*uteJlbHux=',pol, 'oTPucaTeJlHux=',otr);

        pol := 0; otr := 0;
        for i:=0 to 2 do
             if y[i]>=0 then inc(pol) else
                                    dec(pol);
       writeln('Y: ','noJlo*uteJlbHux=',pol, 'oTPucaTeJlHux=',otr);
end.