viết chương trình tính trung bình cộng 4 số bất kì được nhập từ bàn phím

Program Trung_binh;

uses crt;

var t1,t2,t3,t4,tong: real;

begin

clrscr;

write(‘nhap so thu nhat =’);readln(t1);

write(‘nhap so thu hai =’);readln(t2);

write(‘nhap so thu ba =’);readln(t3);

write(‘nhap so thu tu =’);readln(t4);

tong:=t1+t2+t3+t4;

write(‘Trung binh cong cua 4 so = ‘ ,tong div 4);

readln;

end.