1:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if (a>=0) and (b>=0) then writeln('Cung dau')
if (a<0) and (b<0) then writeln('Cung dau');
if (a>0) and (b<0) then writeln('Khac dau');
if (a<0) and (b>0) then writeln('Khac dau');
readln;
end.
2:
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a:4:2,'>',b:4:2)
else if a<b then writeln(a:4:2,'<',b:4:2)
else writeln(a:4:2,'=',b:4:2);
readln;
end.
MÌNH CẢM ƠN TRƯỚC NHA