After the duck procedure (1,1) is run, how many elements are there in the array arrool 1?

var 2. arrbool :array [0..24] of integer = (1,1,1,1,1,1,0,0,0,1,1,0,1,0,1, 1,1,0,1,1,1,1,1,1,1); 3. function monkey (anjing, kucing : integer) : integer; 4. var i : integer; begin for i := 1 to 5 do kucing := kucing + anjing; 5. 6. 7. 8. 9. monkey := kucing; end; 10. 11. procedure bebek (a, b : integer); begin if arrbool [monkey (a, b) ]=1 then 12. 13. 14. 15. exit; arrbool [monkey (a,b)]:=1; bebek (a+1,b); bebek (a, b+1); bebek (a-1,b); bebek (a, b-1); 16. 17. 18. 19. 20. 21. end;