1.

program ctpt;

uses crt;

  var a, b: intger;

begin

             clrscr;

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

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

             if a=b then write('a khac b, nhap sai!') else

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

                                write(b, '   ', a);

              readln

end.

2.

program ctpt;

uses crt;

  var a, b: integer;

begin

             clrscr;

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

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

             if a>b then write('Nho hon la: ', a) else

                   if a<b then write('Nho hon la: ', b) else

                              write('a khac b, nhap sai!');

             readln

end.

#Danmelaptrinh

BT1:

uses crt;
var a,b,t:longint;
begin 
clrscr;
   write('Nhap 2 so nguyen a,b: ');readln(a,b);
   if a<b then 
      begin 
         t:=a;
         a:=b;
         b:=t;
      end;
   writeln(a,' ',b);
readln
end.

BT2:

uses crt;
var a,b:longint;
begin 
clrscr;
   write('Nhap 2 so nguyen a,b: ');readln(a,b);
   if a<b then writeln('Nho hon la ',a) else writeln('Nho hon la ',b);
readln
end.