viết chương trình nhập hai số nguyên a và b từ bàm phím và in từ hai số đó ra màn hình theo thứ tự giảm

uses crt;
var a, b: longint;
begin
clrscr;
    read(a, b);

    if a > b then writeln(a, ' ', b)
    else if b > a then writeln(b, ' ', a)
    else writeln(a, ' ', b);
readln; readln;
end.

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 writeln('thu tu giam dan cua hai so la :', a:4, b:4);

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

if a = b then writeln('thu tu hai so la :', a:4, b:4);

readln

end.