Uses CRT;
Const
 Colors:Array[1..3] of Byte=(4,14,1);
Var
 A:Array[1..3] of Integer;
 d:Integer;
 i,j:byte;
Begin
 ClrScr;
 For i:=1 to 3 do
  begin
   Write('A',i,'= ');
   Readln(A[i]);
  end;
 For i:=1 to 2 do
  For j:=1 to 3-i do
   if A[j]<A[j+1] then
    begin
     d:=A[j];
     A[j]:=A[j+1];
     A[j+1]:=d;
    end;
 ClrScr;
 For i:=1 to 3 do
  begin
   GotoXY((30+(i-1)*10),12);
   TextColor(Colors[i]);
   Write(A[i]);
  end;
 NormVideo;
 ReadKey;
End.