progs/loops.while
changeset 148 36eb7bfb0e63
parent 93 4794759139ea
child 182 9ce2414e470e
equal deleted inserted replaced
147:4725bba8ef26 148:36eb7bfb0e63
     2 x := start;
     2 x := start;
     3 y := start;
     3 y := start;
     4 z := start;
     4 z := start;
     5 while 0 < x do {
     5 while 0 < x do {
     6  while 0 < y do {
     6  while 0 < y do {
     7   while 0 < z do {
     7   while 0 < z do { z := z - 1 };
     8     z := z - 1
       
     9   };
       
    10   z := start;
     8   z := start;
    11   y := y - 1
     9   y := y - 1
    12  };     
    10  };     
    13  y := start;
    11  y := start;
    14  x := x - 1
    12  x := x - 1
    15 };
    13 };
    16 write x;
    14 
    17 write y;
       
    18 write z