Заменить значение каждой переменной на противоположное - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Заменить значение каждой переменной на противоположное»

Листинг программы

Var A,B,C: Integer;
Label Multivide, Unary;
begin
     A:=1;
     B:=2;
     C:=3;
     
     If (A <= B) and (B <= C) then goto Multivide
     else goto Unary;
     
     Multivide:
     A:= A * 2;
     B:= B * 2;
     C:= C * 2;
     Writeln(A,' ',B,' ',C);
     Exit;
     
     Unary:
     A:= A * -1;
     B:= B * -1;
     C:= C * -1;
     Writeln(A,' ',B,' ',C);
     Exit;
end.

Объяснение кода листинга программы

Задаются три переменные типа Integer: A, B, C.
В блоке begin задаются значения переменным A, B, C.
С помощью условного оператора If проверяется условие (A <= B) and (B <= C).
Если условие выполняется, то управление передается на метку Multivide, иначе на метку Unary.
На метке Multivide выполняется операция умножения переменных A, B, C на 2.
Результат выводится на экран с помощью функции Writeln.
Процесс завершается с помощью команды Exit.
На метке Unary выполняется операция умножения переменных A, B, C на -1.
Результат выводится на экран с помощью функции Writeln.
Процесс завершается с помощью команды Exit.