Viết chương trình tính giá trị của biểu thức (a+b)/3. ‘a cộng b tất cả chia 3 Với a,b được viết từ bàn phím

program ct;

uses crt;

var T:real;

      a,b:integer;

begin

clrscr;

write(‘nhap so=’); readln(a,b);

T:=(a+b)/3;

writeln(‘gia tri cua bieu thuc la’,T:2:3);

readln

end.