Решите пожалуйста. Очень нужно. У меня не получается

Вывод блок схемы:

x=3

y=12

Программа на паскале:

program block;

var x,y:integer;

begin

x:=5;

y:=10;

while y<=10 do begin</p>

if x<=y</p>

then begin

x:=x+1;

y:=y-1;

end

else begin

x:=x-5;

y:=y+5;

end;

writeln('Вывод блок-схемы: x=',x,' y=',y)

end.

Вводные данные: x = 5; y=10Условие: Y меньше или равно 10. Y=10. Условие истинно, поэтому идём по пути "Да"Условие: X меньше или равно Y. X=5. 5<10. XИзменение значений: X=X+1; Y=Y-1. То есть X=5+1=6; Y=10-1=9. Идём по стрелке в начало. Выполняем всё то же самое с новыми значениямиУсловие: Y<=10. 9<10. Путь "Да"Условие: X<=Y. 6<9. Пусть "Да"Изменение значений: X=X+1; Y=Y-1. X=6+1=7; Y=9-1=8. ДалееУсловие: Y<= 10. 8<10. Путь "Да"Условие: X<=Y. 7<8. Путь "Да"