uses Crt;
var a,b,c: integer;
trung_binh: real;
begin
writeln(' Nhap so nguyen a= ');
readln(a);
writeln('Nhap so nguyen b= ');
readln(b);
writeln('Nhap so nguyen c= ');
readln(c)
trung_binh:= (a+b+c)/3;
writeln('Gia tri cua 3 so nguyen a,b,c la: ', trung_binh);
readln;
end.