program ct;
uses crt;
var Diem:array[1..50] of real;
i,n,G,Kh,Tb,K:integer;
begin clrscr;
write('Nhap so hoc sinh lop 8A: '); readln(n);
for i:=1 to n do;
begin
writeln('Nhap diem hoc sinh thu ',i,': '); readln(Diem[i]);
end;
G:=0; Kh:=0; Tb:=0; K:=0;
for i:=1 to n do
begin
if Diem[i] >8.0 then G:=G+1;
if 6.5<= Diem[i] and Diem[i] <=7.9 then Kh:=Kh+1;
if 5.0<= Diem[i] and Diem[i] <=6.4 then Tb:=Tb+1;
if Diem[i] <5.0 then K:=K+1;
end;
writeln('So ban hoc sinh gioi la: ',G);
writeln('So ban hoc sinh kha la: ',Kh);
writeln('So ban hoc sinh trung binh la: ',Tb);
writeln('So ban hoc sinh kem la: ',K);
readln;
end.
Học tốt!