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);
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.
