Определите значение переменных x и y после выполнения фрагмента алгоритма.

Очень долго считать
ДА x = 10 y = 10
да x = 15 y = 5
ДА x = 15 y = 5
нет x = 12 y = 10
ДА x = 12 y = 10
нет x = 9 y = 15
ДА x = 9 y = 15
да x = 14 y = 10
ДА x = 14 y = 10
нет x = 11 y = 15
ДА x = 11 y = 15
да x = 16 y = 10
ДА x = 16 y = 10
нет x = 13 y = 15
ДА x = 13 y = 15
да x = 18 y = 10
ДА x = 18 y = 10
нет x = 15 y = 15
ДА x = 15 y = 15
да x = 20 y = 10
ДА x = 20 y = 10
нет x = 17 y = 15
ДА x = 17 y = 15
нет x = 14 y = 20
НЕТ x = 14 y = 20

 var 

  x, y : Integer; 

label M; 

   

begin 

  x := 10; 

  y := 10; 

   

M:   

  if y < 16 then 

  begin 

    WriteLn('ДА x = ', x, ' y = ', y); 

     

    if x

не х и у, а х у и