Bài 1. Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra ngoài màn hình theo thứ tự không giảm

program abc;
uses crt;
var a, b : integer;
begin
clrscr;
write('nhap so nguyen a :');readln(a);
write('nhap so nguyen b :');readln(b);

if a <> b then

begin
if a > b then writeln('thu tu khong giam cua hai so la :', b:4, a:4);
if a < b then writeln('thu tu khong giam  cua hai so la :', a:4, b:4);
end

else writeln('hai so bang nhau');
readln
end.

program bai_giai;

uses crt;

var a,b:longint;

begin

clrscr;

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

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

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

readln;

end;