Mã:
f[x_] = Input["Nhap vao ham so f(x)"];
a = Input["Nhap a"];
b = Input["Nhap b"];
If[f[a] f[b] ≤ 0,
    		Print["[", a, ",", b, "] la khoang cach li nghiem cua phuong trinh ", f[x], "=0"];
    	,
    		Print["[",  a, ",", b, "] khong la khoang cach li nghiem cua phuong trinh ", f[x], " = 0"];
    ];