program ct;
uses crt;
var Diem:array[1..20] of real;
i,dem:integer;
begin clrscr;
for i:=1 to 20 do
begin
write('Nhap diem hoc sinh thu ',i,': '); readln(Diem[i]);
end;
dem:=0;
for i:=1 to 20 do
if Diem[i] >=8 then dem:=dem+1;
writeln('So hoc sinh gioi la ',dem);
readln;
end.
Học tốt!