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

Question

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

---

Answer 1

Ответ:

Объяснение:

Var

Integer :x, y;

bool:boolean ;

Begin

bool:=true;

x:=1;

y:=2;

begin

if x>=y then

x:=x-100;

Y:=y+100;

end

Else

begin

Y:=y-100;

X:=x+100;

End;

Writeln(x, y)

End.