$#QLinkVNxWCDI$

Cấu trúc chương trình như sau:

program ktra;

uses crt;

var anh,toan,van:integer;

      tb: real;

begin

writeln('Nhap diem mon Anh: '); readln(anh);

writeln('Nhap diem mon Van: '); readln(van);

writeln('Nhap diem mon Toan: '); readln(toan);

tb:=(anh+van+toan)/3;

begin

writeln('Diem trung binh cua ban la: ',tb:0:2);

if (tb>=5) then writeln('Ban da trung');

if (tb<5) then writeln('Ban da truot');

end; 

readln;

end.

try:
  a=float(input("Hãy Nhập Điểm Toán: "))
  b=float(input("Hãy Nhập Điểm Văn: "))
  c= float(input("Hãy Nhập Điểm Anh: "))
  tbl =(a+b+c)/3
  print("\nĐiểm Trung Bình Chưa Làm Tròn: ", tbl)
  print("Điểm Trung Bình Đã Làm Tròn: ", round(tbl,2))
  if a+b+c >5:
    print("chúc mừng bạn đã đậu")
  elif a+b+c <5:
    print("chia buồn là bạn đã trượt")
except:
 print("\nLỗi Thao Tác")