declare m number := 3; begin for y in -m..m loop for x in -m..m loop if abs(y) + abs(x)