uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);

if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

else writeln(a,' khong la so am cung khong la so duong');

readln;

end.

b)program ct;

uses crt;

  var a, b: integer;

begin

           clrscr;

           write('Nhap a = '); readln(a);

           write('Nhap b = '); readln(b);

           if a>b then write(b, ' ', a) else

                 if a<b then write(a, ' ', b) else

                       write('a khac b');

           readln

end

uses crt;

var a, b : integer;

begin

clrscr;

write('nhap so ngyen thu nhat :');readln(a);

write('nhap so nguyen thu hai :');readln(b);

if a > b then writeln('thu tu giam dan :', a, b:4);

if a < b then writeln('thu tu giam dan :', b, a:4);

if a = b then writeln('hai so bang nhau ');

readln

end.