Вывести новые значения переменных 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.