Viết Chương trình nhập vào một mảng đến các số nhỏ hơn 1

program nho_hon1;

uses crt;

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

     n,i,d:byte;

begin

       clrscr;

       write('Nhap so luong phan tu cua mang: ');  readln(n);

       d:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

                     if A[i]<1 then d:=d+1;

              end;

       write('Co ',d,' so nho hon 1');

       readln;

end.

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

       D, i, n: byte;

Begin

        Write('nhap n: '); readln(n);

        D:=0;

        For i:=1 to n do

              Begin

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

                    Readln(a[i]);

                    If a[i]<1 then inc(d);

              End;

        Write('co ', d, ' so nho hon 1');

        Readln

End.