x:=1; a: if x>0 then goto b; x:=x+1; y:=y-1; m: if y>0 then goto n; o:=y; goto m; endif n: goto a; endif b: x:=99;