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.

program oken;
uses crt;
var a,i,n,dem,dem2:integer;
begin
        clrscr;
        write('Nhap so luong so can nhap: '); readln(n);
        dem:=0; dem2:=0;
        for i:=1 to n do
                begin
                        write('So ',i,': ');
                        readln(a);
                        if a>0 then
                                dem:=dem+1
                        else
                                if a<0 then
                                        dem2:=dem2+1;
                end;
        if dem<>0 then
                writeln('Co ',dem,' so nguyen duong trong day.')
        else
                writeln('Khong co so nguyen duong trong day.');
        if dem2<>0 then
                writeln('Co ',dem2,' so nguyen am trong day.')
        else
                writeln('Khong co so nguyen am trong day.');
        readln;
end.