program DTB;
var a:array[1..10] of integer;
dem,i,n: integer;
begin
write('Nhap diem TB cua 10 hoc sinh');
readln(n);
for i:=1 to n do
begin
writeln('a[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do if a[i] > 5 then dem:=dem+1;
write('Co', dem ,'hoc sinh co diem TB nho hon 5');
readln;
end.
vote 5 sao