Помогите, пожалуйста)

Question

Помогите, пожалуйста)

---

Answer 1

Var   a,b:integer;begin    readln(a,b);    a:=b+3;    if a <= b then       a:=b+a       else           a:=b-a;       a:=a+1;       writeln('a = ', a);end.<br>
a) a = -2
б) a = -2.