var layer : int := 0 
var ball : int := 9999 
var i : int := 0 
var v : int := 0 
%%%%%%%%%%%%%%%%%%%%%% 
loop 
   exit when 
       ball <= 544 
   v += 1 
   i := v ** 2 
   ball := ball - i 
   put ball 
   layer += 1 
   put "layer ", layer 
end loop 

put "there are ", i - ball, " cannonballs left over" 
put "the last layer is the ", layer, "th"