program Trung_Binh_Cong;

uses crt;

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

begin

    clrscr;

    writeln('nhap so thu nhat =');

    readln(t1);

    writeln('nhap so thu hai =');

    readln(t2);

    writeln('nhap so thu ba =');

    readln(t3);

    writeln('nhap so thu tu =');

    readln(t4);

    writeln('Trung binh cong cua 4 so = ' ,tong div 4):
Readln.