Cách 1: Đầy đủ (có gán biến):
uses crt;
var l,t:longint; tbc:real;
begin
clrscr;
l:=8;
t:=9;
tbc:=(l+t*2)/3;
writeln('Tung binh cong diem: ',tbc:0:4);
readln
end.
Cách 2: Rút gọn:
uses crt;
begin
clrscr;
writeln('Tung binh cong diem: ',(8+9*2)/3:0:4);
readln
end.