uses crt;

var lt,th,td:real;

begin

write('nhap diem ly thuyet: ');readln(lt);

write('nhap diem thuc hanh: ');readln(th);

td:=(lt+th*2)/3;

writeln('ket qua: ',td:2:1);

if (td >= 5) then writeln('dau')

else writeln('hong');

readln;

end.

Program Tinh_diem;

Uses Crt;

Var LT, TH,Diem_thi: Real;

Begin

clrscr;

Writeln('Hay nhap diem Ly thuyet'); Readln(LT);

Writeln('Hay nhap diem Thuc Hanh'); Readln(TH);

Diem_thi:=(LT+TH*2)/3 ;

Writeln('Diem_thi:',Diem_thi:0:1);

if (Diem_thi >= 5) then Write('Dau') else Write('Hong');

Readln;

end.

(có thắc mắc gì cứ bình luận nha)