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

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

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

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

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

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

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

Встановіть порядок виконання операторів програми для визначення більшого з трьох чисел а, b, с.

1) a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); c := StrToInt(Edit3.Text); 

2) If a > b Then Мax := a Else Мax := b; 

3) If c > max Then max := c; 

4) Edit4.Text := IntToStr(max); 

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

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;

{…}

Встановіть відповідність між операторами і діями, які вони реалізують

А) If A mod 2 = 0 Then A := A div 2 Else A := 10*A; 

Б) If A mod 2 = 0 Then A := A div 2; 

В) If A > B Then A := A-B Else B := B-A; 

Г) If A > B Then Мах := A Else Мах:= B; 

1) Від більшого з чисел А і В відняти менше

2) Змінній Мах присвоїти значення більшого з чисел А і В. 

3) Якщо ціле число А парне, поділити його на 2. 

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