uses crt;
Var a,b,c,d,dt:real;
begin
clrscr;
   write('Diem mon toan cua ban: ');readln(a);
   write('Diem mon van cua ban: ');readln(b);
   write('Diem mon anh van cua ban: ');readln(c);
   write('Diem mon tin hoc cua ban: ');readln(d);
   Dt:=(a*2+b*2+c+b)/6;
   if(dt>=8)and(a>=6.5)and(b>=6.5)and(c>=6.5)and(d>=6.5)
   then writeln('Ban dat loai gioi.') else
   if(dt>=6.5)and(dt<8)and(a>=5)and(b>=5)and(c>=5)and(d>=5)
   then writeln('Ban dat loai kha.') else
   if(dt>=5)and(dt<6.5)and(a>=3.5)and(b>=3.5)and(c>=3.5)and(d>=3.5)
   then writeln('Ban dat loai trung binh.') else writeln('Ban dat loai yeu.');
readln
end.

Viết chương trình nhập họ tên, điểm trung bình học kì 1( ĐTB học kì 1 ) và điểm trung bình học kì 2 

( ĐTB học kì 2 ) kiểu số thực cho 1 người. Tính điểm trung bình cả năm theo công thức sau:

Trung bình cả năm:

( ĐTB cả năm ) = (ĐTB học kì 1 ) + (ĐTB học kì 2 )/3

Sau đó phân loại như sau:

ĐTB cả năm < 5,0: loại yếu

5,0 < ĐTB cả năm < 6,5: loại trung bình

6,5 < ĐTB cả năm < 8,0: loại khá

ĐTB cả năm > 8,0: loại giỏi

In họ và tên, kết quả học tập của người đó ra màn hình.