Program Typlex271;
Uses crt;
Var dam, dduong: longint;
n: integer;
Begin
dam:=0; dduong:=0; sum:=0;
Repeat
Begin
Writeln('Nhap so:'); Readln(n);
sum:=sum+n;
If n>0 then dduong=dduong+1;
If n<0 then dam=dam+1;
End
Until sum<=100;
Writeln('So duong', dduong);
Writeln('So am', dam);
Readln
End.