Program HOC24;
var a,b,c,d: integer;
Begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
write('Nhap d: '); readln(d);
if (a=0) or (b=0) or (c=0) or (d=0) then write('Tich 4 so bang 0');
if a*b*c*d>0 then write('Tich 4 so do la so duong');
if a*b*c*d<0 then write('Tich 4 so do la so am');
readln
end.