Помогите!!!!!Ивт СРРОООООЧНО!!дам50 баллов

Question

Помогите!!!!!Ивт СРРОООООЧНО!!дам50 баллов

---

Answer 1

Var a: boolean; 
      b: integer;

begin
  a:= true;
  if (a) then
    b:= 4;
   else
     b:= -4;
writeln(b);
end.