Viết chương trình nhập vào một mảng B gồm có x số nguyên với x là một số nguyên nhập vào từ bàn phím Cho biết trong mảng vừa nhập có bao nhiêu số có 2 chữ số

Program BTT;
Uses crt;
Var B: array[1..1000] of longint;
    x,d,i: longint;

Function cs(a: longint): byte;
Var d: byte;
Begin
        d:=0;
        While a<>0 do
        Begin
                inc(d);
                a:=a div 10;
        End;
        cs:=d;
End;

Begin
        Clrscr;
        Write('Nhap x: '); Readln(x);
        For i:=1 to x do
        Begin
                Write('B[',i,'] = ');
                Readln(B[i]);
        End;

        d:=0;
        For i:=1 to x do
                If cs(B[i]) = 2 then inc(d);
        Write('Co ',d,' so co hai chu so');
        Readln
End.

uses crt;
var i,j,n,d:longint; b:array[1..100]of longint;
begin
clrscr;
   write('Nhap n: ');readln(n);
   for i:=1 to n do 
      begin 
         write('b[',i,']= ');readln(b[i]); 
         if (abs(b[i])<100)and(abs(b[i])>9) then inc(d);
      end;
   writeln(d);
readln
end.