Program Mang;
Uses crt;
Var A:array[1..10000] of longint;
    i,n,dem: longint;
Begin
        Clrscr;
        Write('Nhap n: '); readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        dem:=0;
        For i:=1 to n do
                If A[i]>=0 then inc(dem);
        Write('Co ',dem,' so khong am');
        Readln
End. 

program hotboy;

uses crt;

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

n,i,s: integer;

begin

clrscr;

s:=0;

write('nhap so nguyen duong n');

readln(n);

for i:=1 to n do

begin

write('a[',i,']');

readln(a[i]);

end;

for i:=1 to n do

if a[i] >0 then s:=s+1;

write('co so so co gia tri khong am la',s);

readln

end.