program khonggiam;

uses crt;

var a:array[1..2] of integer;

   begin

       clrscr;

       for i:=1 to 2 do

              begin

                      write(' Nhap so thu ',i,' : ');       readln(A[i]);

              end;

        if A[i]>A[2] then writeln(A[1],' ',A[2])

                             else writeln(A[2],' ',A[1]);

         readln;

   end.

{bài nay mình sử dụng mảng, nếu chưa học thì đọc 2 lần a,lần 1 cho b=a r so sánh a với b)

program b1;

uses crt;

var a,b,k:integer;

begin

clrscr;

writeln('nhap so a');

readln(a);

writeln('nhap so b');

readln(b);

tg:=a;

a:=b;

b:=tg;

writeln('gia tri cua a la',a);

writeln('gia tri cua b la', b);

readln;

end.