Nhập ba số từ bàn phím và đưa ra kết quả ba số theo thứ tự : số lớn, số bé hơn, số bé

Program BTT;
Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap a, b, c: '); Readln(a,b,c);

        If (a<=b) and (b<=c) then Write(c,' ',b,' ',a);
        If (a<=c) and (c<=b) then Write(b,' ',c,' ',a);

        If (b<=a) and (a<=c) then Write(c,' ',a,' ',b);
        If (b<=c) and (c<=a) then Write(a,' ',c,' ',b);

        If (c<=b) and (b<=a) then Write(a,' ',b,' ',c);
        If (c<=a) and (a<=b) then Write(b,' ',a,' ',c);

        Readln
End.