program soluong;
uses crt;
var A:array[1..100] of real;
n,i,dem:byte;
begin
write('Nhap so luong phan tu N: '); readln(n);
dem:=0;
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
if A[i]>=8 then dem:=dem+1;
end;
write('Trong mang A co ',dem,' phan tu lon hon hoac bang 8.0);
readln;
end.