Program Trungbinhcong ;
Uses crt;
Var a,b,c: interger
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 3 so nguyen a,b,c la:',trungbinh);
readln;
end.
Xin hay nhất