Алгоритми з розгалуженнями

Який оператор реалізує дію:

Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10.

Який оператор реалізує дію: 

Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку?

Який оператор реалізує дію:

Якщо А — від’ємне число, змінити його знак на протилежний.

Визначте, якого значення набуває змінна В після виконання фрагмента програми.

     var A, B, C, Max: Integer;

     begin

    A := 13; B := 12;

    If A > B*B Then B := A–B;

    If B > A–1 Then begin B := B–A; 

                            A:= A–B end

                    Else begin A := A–B;

                            B := B–A end;

{…}