xếp loai học lực HS bằng pascal

program tinhtb;
var toan,ly,hoa,van,su,dia,anh,sinh,CN,nhac,MT,TD,GDCD:real;
DTBCM:real;
begin
writeln(' nhap vao mon toan');readln(toan);
writeln(' nhap vao mon ly');readln(ly);
writeln(' nhap vao mon hoa');readln(hoa);
writeln(' nhap vao mon van');readln(van);
writeln(' nhap vao mon su');readln(su);
writeln(' nhap vao mon dia');readln(dia);
writeln(' nhap vao mon anh');readln(anh);
writeln(' nhap vao mon sinh');readln(sinh);
writeln(' nhap vao mon CN');readln(CN);
writeln(' nhap vao mon nhac');readln(nhac);
writeln(' nhap vao mon MT');readln(MT);
writeln(' nhap vao mon TD');readln(TD);
writeln(' nhap vao mon GDCD');readln(GDCD);
DTBCM:=
(toan*2+ly+hoa+van*2+su+dia+anh+sinh+CN+nhac+MT+GDCD+TD)/15;
if( DTBCM>=8) and (toan>=8)and(ly>=6.5)and(hoa>=6.5)and(su>=6.5)
and(dia>=6.5) and(anh>=6.5)
and(sinh>=6.5)and(CN>=6.5)and(nhac>=6.5)
and(MT>=6.5) and(TD>=6.5) and(GDCD>=6.5) and(Van>=6.5)
then
begin
write('Xep loai HLgioi');readln;
end
else
if( DTBCM>=8) and (van>=8)and(ly>=6.5)and(hoa>=6.5)and(su>=6.5)
and(dia>=6.5) and(anh>=6.5)
and(sinh>=6.5)and(CN>=6.5)and(nhac>=6.5)

and(MT>=6.5) and(TD>=6.5) and(GDCD>=6.5) and(Toan>=6.5) then
begin
write('Xep loai HLgioi');readln;
end else
if( DTBCM>=6.5) and (van>=6.5)and(ly>=5)and(hoa>=5)and(su>=5)
and(dia>=5) and(anh>=5) and(sinh>=5)and(CN>=5)and(nhac>=5)
and(MT>=5) and(TD>=5) and(GDCD>=5) and(Toan>=5) then
begin
write('Xep loai HLkha');readln;end
else
if( DTBCM>=6.5) and (van>=5)and(ly>=5)and(hoa>=5)and(su>=5)
and(dia>=5) and(anh>=5) and(sinh>=5)and(CN>=5)and(nhac>=5)
and(MT>=5) and(TD>=5) and(GDCD>=5) and(Toan>=6.5) then
begin
write('Xep loai HLkha');readln;end else
if( DTBCM>=6.5) and (van>=5)and(ly>=5)and(hoa>=5)and(su>=5)
and(dia>=5) and(anh>=5) and(sinh>=5)and(CN>=5)and(nhac>=5)
and(MT>=5) and(TD>=5) and(GDCD>=5) and(Toan>=6.5) then
begin
write('Xep loai HLkha');readln;end
else
if( DTBCM>=5) and (van>=5)and(ly>=3.5)and(hoa>=3.5)and(su>=3.5)
and(dia>=3.5) and(anh>=3.5)
and(sinh>=3.5)and(CN>=3.5)and(nhac>=3.5)
and(MT>=3.5) and(TD>=3.5) and(GDCD>=3.5) and(Toan>=3.5) then
begin
write('Xep loai HLtb');readln;end
else
if( DTBCM>=5) and (van>=3.5)and(ly>=3.5)and(hoa>=3.5)and(su>=3.5)
and(dia>=3.5) and(anh>=3.5)

and(sinh>=3.5)and(CN>=3.5)and(nhac>=3.5)
and(MT>=3.5) and(TD>=3.5) and(GDCD>=3.5) and(Toan>=5) then
begin
write('Xep loai HLtb');readln;end
{if( DTBCM<5) then}
else
begin
writeln('Xep loai HLYeu');readln;end;
end.
end.