Question

Какое значение примет переменная С в результате выполнения программы:
Var A, B, C: integer;
Begin
A:=3;
B:=A*3-6;
If B>2*A Then A:=4;
IF B<2*A Then A:=2;
If B=2*A Then A:=B+A;
C:=A+B-A*B;
Writeln (‘C=’, C);
End.