Viết công thức nhập điểm ba môn Toán Văn Anh từ bàn phím in ra thông báo nếu điểm trung bình 9 đến 10 thì thông báo loại giỏi 7 đến 8 phá 5 đến 6 trung bình dưới 5 khoong Đạt

program kaito;

uses crt;

var a, b, c, tb: real;

begin

   clrscr;

   write('Nhap diem toan: '); readln(a);

   write('Nhap diem van: '); readln(b);

   write('Nhap diem anh: '); readln(c);

   tb:=(a+b+c)/3;

   if (tb>=9) and (tb<=10) do writeln('Dat loai gioi') else

   if (tb>=7) and (tb<9) do writeln('Dat loai kha') else

   if (tb>=5) and (tb<7) do writeln('Dat loai trung binh') else

   writeln('Khong dat');

readln

end.

CHÚC BẠN HỌC TỐT!!!

uses crt;
var  t,v,a : real;
dtb : real;
begin clrscr;
write('Nhap diem Toan, Van ,Anh la :');
readln(t,v,a);
dtb:=(t+v+a)/3;
if (dtb>=9) and (dtb<=10) then write('Gioi')
else if (dtb>=7) and (dtb<=8) then write('Kha')
else if  (dtb>=5) and (dtb<=6) then write('Trung binh') else write('Yeu');
readln
end.