1/

program bai1;

uses crt;

var a,b:integer;

       begin

               clrscr;

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

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

                if a>b then writeln(a,' ',b)

                              else writeln(b,' a');

               readln

       end.

2/

program bai2;

uses crt;

var n:integer;

  begin

    clrscr;

     write('Nhap n: ');        readln(n);

     if n mod 2=0 then writeln(n,' la so chan')

                else writeln(n,' la so le');

     readln;

  end.

bài 1:

program sap_xep

uses crt;

var a,b:integer;

begin

       clrscr;

       writeln('nhap so nguyen a');   readln(a);

       writeln('nhap so nguyen b');   readln(b); 

       if a<b then writeln(a,'_',b)   else writeln(b,'_',a);

       readln;

end.

bai 2

program so_chan_le;

uses crt;

var a:integer;

begin

clrscr;

write('nhap so a');   readln(a);

if (a mod 2=0) then writeln('a la so chan') else writeln('a la so le');

readln;

end.