Даны 3 числа. сравните эти числа. большее число уменьшить в 3 раза, а меньшее число увеличить в 3 раза.

Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
   Begin
   if A>C then A:=A/3
   else C:=C/3;
   if B<C then B:=B*3
   else C:=C*3
   End
else
   Begin
   if B>C then B:=B/3
   else C:=C/3;
   if A<C then A:=A*3
   else C:=C*3
   End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.