Program Diem_Trung_binh;
Uses Crt;
Var
   Ten:String[24];

Else if Tb < 9 Then
      Begin
         Writeln('+Hoc sinh: ',Ten);
         Writeln('+Diem trung binh = ',Tb:4:1);
         Writeln('+Xep hang: Hoc luc Kha');
      End
      Else
          Begin
            Writeln('+Hoc sinh: ',Ten);
            Writeln('+Diem trung binh = ',Tb:4:1);
            Writeln('+Xep hang: Hoc luc Gioi');
         End;
   Writeln;
   Writeln('    Bam phim <Enter> de ket thuc');
   Readln

                chúc bạn học tốt

program ct;
uses crt;
var HS1,GHK,CHK:real;
    i,a:Qword;

begin
    clrscr;
    writeln('MON TIN'); writeln;
    writeln ('Nhap cot diem he so thu nhat: '); readln (HS1);
    for i:=2 to 3 do 
        begin
        writeln ('Nhap cot diem he so thu ',i,': '); 
        readln(a); HS1:=HS1+a;
        end;
    writeln ('Nhap diem giua hoc ki: '); readln(GHK);
    writeln ('Nhap diem cuoi hoc ki: '); readln(CHK);
    writeln ('Trung binh mon la: ',(HS1+GHK*2+CHK*3)/8:5:1);
    readln;

end.

__________________

#Duahauvn

#HocTot

#ThiTot