Какое значение примет переменная C в результате выполнения программы?

Какое значение примет переменная C в результате выполнения программы: 

Var A, B, C,i: integer;
Begin
A:=4;
B:=A*3-6;
for i:=4 to 5 do
BEGIN
If B>2*A Then A:=2;
IF B<2*A Then A:=5;
If B=2*A Then A:=B-A;
B:=A+2;
END;
C:=A*B;
Writeln ('C=', C);
End.