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

VarA,B,C:real;BeginWrite('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   Endelse   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.