uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);</p><p>write('Nhap b='); readln(b);</p><p>if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong')