program trung_binh_nhan;
uses crt;
var a,b,c:integer;
tbn:real;
begin
clrscr;
write('Nhap so a=');readln(a);
write('Nhap so b=');readln(b);
write('Nhap so c=');readln(c);
tbn:=(a*b*c)/3;
write('Trung binh nhan cua 3 so ',a,' ; ',b,' ; ',c,' la:',tbn:1:2);
readln;
end.