Program Diem_Trung_binh;
Uses Crt;
Var
   Ten:String[24];
   diem:Real;
Begin
   Clrscr;
   Writeln('XEP HANG');
   Writeln('--------------------------------');
   Write('-Cho biet ho ten: ');
   Readln(Ten);
   Write('-Cho biet diem ');
   Readln(diem);
   If diem < 5 Then
      Begin
         Writeln('+Hoc sinh: ',Ten);
         Writeln('+Diem = ',diem:4:1);
         Writeln('+Xep hang: Hoc luc kem');
      End
   Else if Tb < 7 Then
      Begin
         Writeln('+Hoc sinh: ',Ten);
         Writeln('+Diem = ',diem:4:1);
         Writeln('+Xep hang: Hoc luc trung binh');
      End
   Else if Tb < 9 Then
      Begin
         Writeln('+Hoc sinh: ',Ten);
         Writeln('+Diem = ',diem:4:1);
         Writeln('+Xep hang: Hoc luc Kha');
      End
      Else
          Begin
            Writeln('+Hoc sinh: ',Ten);
            Writeln('+Diem = ',diem:4:1);
            Writeln('+Xep hang: Hoc luc Gioi');
         End;
   Writeln;
   Writeln('    Bam phim <Enter> de ket thuc');
   Readln;
End.