Program BTH;
uses crt;
var n,i,dem1,dem2,k:longint;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
write('Nhap so thu ',i,' : ');readln(k);
If k>0 then dem1:=dem1+1
else
dem2:=dem2+1;
end;
Writeln('So luong so am co trong day la: ',dem2);
Writeln('So luong so duong co trong day la: ',dem1);
readln;
end.