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

Вывести новые значения переменных A, B, C.

Program If16;
Var
A,B,C:Real;
Begin
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If (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.

автор: Sklyarov Sergej a.k.a. S9