Program giaibai;
uses crt;
var a:Longint;
     b:Real;
Begin
    clrscr;
{ý tưởng : ta gán biến b:= b+a , cộng dồn lại rồi sau đó chia 4}
      Write('Nhap so thu nhat =');Readln(a); b:=b+a;
      Write('Nhap so thu hai =');Readln(a); b:=b+a;
      Write('Nhap so thu ba =');Readln(a); b:=b+a;
      Write('Nhap so thu bon =');Readln(a); b:=b+a;
    b:=b/4;
 Write('Trung binh cong cua 4 so la:',b:0:5);
Readln;
End.