помогите решить , срочно

Pascal

begin

 var a := 4;

 var b := 6;

 if a = b then  

 begin

   b := 1 - a;

   a := b - 2;

 end;

 if a > b then  

 begin

   b := a - 1;

   a := b + 1;

 end

 else b := a;

 Print(a, ' ', b);

end.

Ответ a:=4 b:=4

Объяснение: