Uses Crt;
Var hs:array[1..1000] of integer;
i,n,dm,d15p,dktgk:integer; dktck,TBMHK:real;
Gioi,Yeu,TB,Kha:integer;
Begin
Clrscr;
Writeln('Nhap so ban hoc sinh trong lop vao: '); Readln(n);
dm:=0; d15p:=0; dktgk:=0; dktck:=0;

For i:= 1 to n do
Begin
Repeat
Writeln;
Write(' Nhap diem mieng cua hs[',i,']= '); Readln(dm);
Write(' Nhap diem 15p cua hs[',i,']= '); Readln(d15p);
Write(' Nhap diem KTGK cua hs[',i,']= '); Readln(dktgk);
Write(' Nhap diem KTCK cua hs[',i,']= '); Readln(dktck);
Until (dm and d15p and dktgk<=10) and  (dktck<=10.0);
TBMHK:=((dm+d15p+dktgk*2+dktck*3)/7);
Writeln;
Write('Diem TBMHK cua hs[',i,'] la: ',TBMHK:1:1);
End;
Writeln;
For i:= 1 to n do
Begin
If TBMHK >=8.0 then Gioi:=Gioi+1;
If TBMHK<5 then Yeu:=Yeu+1;
If (TBMHK<8.0) and (TBMHK>=6.5) then Kha:=Kha+1;
If (TBMHK>=5) and (TBMHK<6.5) then TB:=TB+1;
End;
Writeln(' So ban dat HSG la: ',Gioi);
Writeln(' So ban dat HSK la: ',Kha);
Writeln(' So ban dat HSTB la: ',TB);
Writeln(' So ban dat HSY la: ',Yeu);
Readln
End.
*Nhớ tick và chọn làm CTRL hay nhất giúp mình với nhé! Thanks :333