Lập trình nhập vào từ bàn phím 3 số nguyên dương a, b, c. Tìm và thông báo ra màn hình trung bình cộng của ba số đó nếu a<0 còn không thì tìm trung bình nhân của ba số đó.
tin 11 mọi người ơi, jup mình với, nhanh nha
var a,b,c : longint ; tbn : real ; begin write('Nhap a,b,c: ');read(a,b,c); if a < 0 then write((a+b+c)/3 :3:1) else begin tbn:=exp((1/3)*ln(a*b*c)); write(tbn:3:1); end ;