Nếu có sai thì nói mình nhé.

========================

program Hello;
uses crt;
var a,b,c,m:integer;
begin
    read(a, b, c);
    if a > b then
        begin
            m:=a;
            a:=b;
            b:=m;
        end;
    if a > c then
        begin
            m:=a;
            a:=c;
            c:=m;
        end;
    if b > c then
        begin
            m:=b;
            b:=c;
            c:=m;
        end;
    write(a, ' ', b, ' ', c);
    
end.

program sap_xep;
uses crt;
var a,b,c,tg:integer;
begin
    clrscr;
    write('Nhap a: ');  readln(a);
    write('Nhap b: ');  readln(b);
    write('Nhap c: ');  readln(c);
    if a>b then
        begin
            tg:=a; a:=b; b:=tg;
        end;
    if a>c then
        begin
            tg:=a; a:=c; c:=tg;
        end;
    if b>c then
        begin
            tg:=b; b:=c; c:=tg;
        end;
    write('Sau khi sap xep: ',a,' ',b,' ',c);
    readln;
end.