uses crt;

var a, b, tb : real;

begin

clrscr;

write('Nhap diem ly thuyet va thuc hanh : ');

readln(a, b);

tb := (a + b * 3) / 4;

writeln('Diem trung binh : ', tb : 2 : 1);

if tb >= 5 then writeln('Dat') else writeln('Hong');

readln

end.

CODE PASCAL:

uses crt;

var lt,th,tb: real;

begin

clrscr;

write('Nhap diem ly thuyet: ');

readln(lt);

write('Nhap diem thuc hanh: ');

readln(th);

tb:=(lt+th*3)/4;

writeln('Diem trung binh la: ',tb:2:1);

if tb >= 5 then writeln('=> Dat') else writeln('=> Khong Dat');

readln;

end.

CODE PYTHON:

lt = float(input("Nhập điểm lý thuyết: "))
th = float(input("Nhập điểm thực hành: "))
tb = (lt+th*3)/4
print("Điểm trung bình: ",int(tb))
if tb >= 5:
    print("=> Dat")
else:
    print("=> Khong Dat")