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.