what is the output nidoran(7,1000000007)?
Note: The size of the integer data type in question is a signed 4 byte integer

1. function pichu (raichu, pikachu : integer) : integer; 2. var 3. pikapika : integer; 4. begin while pikachu > 0 do begin pikapika := raichu and pikachu; raichu := raichu xor pikachu; pikachu := pikapika shl 1; end; pichu := raichu; 5. 6. 7. 8. 9. 10. 11. end; 12. //// 13. function eevee (vaporeon, jolteon : integer) : integer; 14. var 15. flareon : integer; 16. begin 17. flareon := 0; while jolteon 0 if (jolteon and 1) = 1 then flareon := pichu (vaporeon, flareon); jolteon := jolteon div 2; vaporeon := vaporeon * 2; end; 18. do begin 19. 20. 21. 22. 23. 24. eevee := flareon; 25. 26. end; // 27. function nidoran (nidorina, nidorino : integer) : integer; 28. var 29. nidoking, nidoqueen: integer; 30. begin 31. nidoqueen := 1; nidoking := 1; nidoqueen := (not (nidoqueen) ) +1; while nidorino 0 do begin 32. 33. 34. 35. nidoking := eevee (nidoking, nidorina) mod 10; nidorino := pichu (nidorino, nidoqueen); end; 36. 37. 38. 39. nidoran : nidoking; end;