start := 1000; 

x := start;

y := start;

z := start;

while 0 < x do {

 while 0 < y do {

  while 0 < z do { z := z - 1 };

  z := start;

  y := y - 1

 };     

 y := start;

 x := x - 1

}