Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное — Pascal(Паскаль)

Program If17;

Var
  A, B, C: Real;

Begin
  WriteLn('Введите числa A,B и C: ');
  ReadLn(A, B, C);
  If ((A < B) And (B < C)) Or ((A > B) And (B > C)) Then
  Begin
    A := A * 2;
    B := B * 2;
    C := C * 2;
  End
  Else
  Begin
    A := -A;
    B := -B;
    C := -C;
  End;
  WriteLn('A = ', A, ' B = ', B, ' C = ', C);

End.