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.