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

program   tinhtong;

uses crt;

var a,b,c,d,T:real;

begin

       clrscr;

       writeln('nhap so thu nhat:');readln(a);

       writeln('nhap so thu hai:');readln(b);

       writeln('nhap so thu ba:');readln(c);

       writeln('nhap so thu tu:');readln(d);

       T:=a+b+c+d;

       writeln('tong bon so la:',T:10:2);

       readln;

End.