var a: array[1..250] of integer;

      d0, dd, da, i, n: byte;

Begin

    Write('n = '); readln(n);

    dd:=0; da:=0; d0:=0;

    For i:=1 to n do

       Begin

            Write('a[', i, '] = '); readln(a[i]);

            If a[i]>0 then inc(dd)

            Else if a[i]<0 then inc(da)

            Else inc(d0);

       End;

   For i:=1 to n do write(a[i], ' ');

   Writeln;

   Writeln('so luong so duong: ', dd);

   Writeln('so luong so am: ', da);

   Write('so luong so 0: ', d0);

   Readln

End.

program bai_giai;
uses crt;
var A:array[1..200] of integer;
    n,i,dd,da,d0:integer;
begin
    clrscr;
    write('Nhap so phan tu: '); readln(n);
    dd:=0; da:=0; d0:=0;
    for i:=1 to n do
        begin
            write('Nhap phan tu thu ',i,': '); readln(A[i]);
            if A[i]>0 then dd:=dd+1;
            if A[i]<0 then da:=da+1;
            if A[i]=0 then d0:=d0+1;
        end;
    writeln('Co ',dd,' phan tu duong');
    writeln('Co ',da,' phan tu am');
    writeln('Co ',d0,' phan tu bang 0');
    readln;
end.