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.