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.