Gõ chương trình pascal: 1. Nhập vào 3 số (nguyên dương khác nhau). In ra các số theo thứ tự tăng dần. 2. Nhập vào 4 số (nguyên dương khác nhau). a/ In ra số lớn nhất, số nhỏ nhất. b/ In ra hai số không phải lớn nhất và nhỏ nhất. 3. Nhập chiều dài 3 đoạn thẳng (nguyên dương). Cho biết có thể ghép 3 đoạn này thành một tam giác hay không. Nếu có thì là tam giác gì: đều, vuông cân (giả sử có thể xảy ra trường hợp này), vuông, cân hay thường?

Uses crt;
Var a,b,c: longint;
Begin
        Clrscr;
        Write('Nhap a,b,c: '); Readln(a,b,c);
        If (a>b) and (a>c) and (b>c) then Write(a:5,b:5,c:5);
        If (a>b) and (a>c) and (c>b) then Write(a:5,c:5,b:5);
        If (b>a) and (b>c) and (a>c) then Write(b:5,a:5,c:5);
        If (b>a) and (b>c) and (c>a) then Write(b:5,c:5,a:5);
        If (c>a) and (c>b) and (a>b) then Write(c:5,a:5,b:5);
        If (c>a) and (c>b) and (b>a) then Write(c:5,b:5,a:5);

        Readln
End.