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

var x,y:integer;

begin

x:=5;

y:=8;

while y<=8 do

if x<=y then

begin

x:=x+1;

y:=y-1

end

else

begin

x:=x-5;

y:=y+5

end;

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

end.