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é! Thank you so much :33~~
*p/s: Có gì thì cứ hỏi và thăc mắc comment nha!~~~

uses crt;
var f:text; i,n,hsg,hsk,hstb,hsy,a,b,c,d1:longint; d:real; 
begin
clrscr;
   assign(f,'TBMHK');rewrite(f);
   write('Nhap so cac ban trung lop: ');readln(n); 
   for i:=1 to n Do 
      begin
         write('Nhap diem mieng ban thu ',i,': ');readln(a);
         write('Nhap 15 phut ban thu ',i,': ');readln(b);
         write('Nhap giua ki ban thu ',i,': ');readln(c);
         write('Nhap cuoi ki ban thu ',i,': ');readln(d1);   
         d:=(a+b+c*2+d1*3)/7;
         writeln(f,d);
         if(d>=8) then inc(hsg) else
         if(d>=6.5)and(d<8) then inc(hsk) else
         if(d>=5)and(d<6.5)
         then inc(hstb) else inc(hsy); 
      end;
   writeln('So ban dat loai gioi: ',hsg);
   writeln('So ban dat loai kha: ',hsk);
   writeln('So ban dat loai trung binh: ',hstb);
   writeln('So ban dat loai yeu: ',hsy);
   close(f);
readln
end.