Помогите решить пожалуйста. Определите значения переменных х и у после выполнения...

Question

Помогите решить пожалуйста.
Определите значения переменных х и у после выполнения фрагмента алгоритма б)

---

Answer 1

Все проверялось с помощью программы(код ниже):

3 16 
8 13 
13 10 
11 14 
16 11 
______
9 5 
7 9 
12 6 
10 10 
15 7 
13 11 
11 15 
16 12 

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var x:= ;
  var y:= ;
  Println(x,y);
  while x<16 do<br>  begin
    if x>y then begin x:=x-2; y:=y+4; end else begin x:=x+5; y:=y-3; end;
    Println(x,y);
  end;
end.