program tinhtong;
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.
CHO MK 5* VÀ CÂU TRẢ LỜI HAY NHẤT NHÁ . THANKS
CHÚC BẠN HỌC TỐT