program Bai65;
uses crt;
var
a: array[1..10000] of longint;
n,i,d,dem : longint;
begin
clrscr;
write('Nhap n= ');readln(n);
for i:=1 to n do
begin
write('a[', i ,']= ');
readln(a[i]);
end;
for i:=1 to n do
begin
d:=0;
while a[i] <> 0 do
begin
a[i]:=a[i] div 10;
d:=d+1;
end;
If d = 3 then dem:=dem+1;
end;
write('So luong so co 3 chu so: ',dem);
readln;
end.