Помогите написать программу ** Паскале по данной блок схеме, пожалуйста

Question

Помогите написать программу на Паскале по данной блок схеме, пожалуйста

---

Answer 1

var x,y:integer;

begin

x:=5;

y:=8;

while y<=8 do</p>

if x<=y then</p>

begin

x:=x+1;

y:=y-1

end

else

begin

x:=x-5;

y:=y+5

end;

writeln (x,' ',y)//этой строки на схеме нет

end.

Comments

А что делает эта строчк: writeln (x,' ',y,) ?

---

Выводит окончательные значения x и y