uses crt;
var a,b,c,tg:Integer;
Begin
clrscr;
write('vao 3 so a,b,c:'); Readln(a,b,c);
if b<a then begin tg:=a; a:=b; b:=tg; end;
if c<b then begin tg:=b; b:=c; c:=tg;end;
if b<a then begin tg:=a; a:=b; b:=tg; end;
write(c:9; b:9; a:9);
Readln
End.
Ctr chưa test, bạn test thử nhaa.