Viết chương trình tính điểm TBM của 4môn : văn sử địa anh nhập từ bàn phím (văn anh hệ số 2, sử địa hệ số 1 ) sau đó thông báo "giỏi" nếu TBM >bằng 8.0 và không có môn nào dưới 6.5 còn trường hợp ngược lại thì thông báo "chưa giỏi"

$#QLinkVNxWCDI$

program qlink;

uses crt;

var Anh, Van, Su, Dia, a, b, c, d: real;

begin

clrscr;

begin

clrscr;

writeln('Nhap diem Anh cua ban: '); readln(Anh); delay(1000);

writeln('Nhap diem Van cua ban: '); readln(Van); delay(1000);

writeln('Nhap diem Su cua ban: '); readln(Su); delay(1000);

writeln('Nhap diem Dia cua ban: '); readln(Dia); delay(1000);

a:=Anh*2; b:=Van*2; c:=a+b+Su+Dia;

d:=c/6;

end;

begin
clrscr;
writeln('Diem trung binh cua ban la: ',d:0:2); delay(2000);
begin
if (d>=8.0) then
if (Anh>6.5) and (Van>6.5) and (Su>6.5) and (Dia>6.5) then writeln('Chuc mung, ban la HSG');
if (Anh<6.5) or (Van<6.5) or (Su<6.5) or (Dia<6.5) and (d>=8.0) then writeln('Chan the, ban van chua la HSG')
end;
begin
if (d<8.0) then writeln('Ban chac chan khong phai la HSG');
end;
end;
readln;
end.