甲1...癸10,子1...亥12 function 定纳音(某天干:T天干;某地支:T地支):string; const 纳音:array[1...30] of string=( ‘海中金’,‘炉中火’,‘大林木’, ‘路旁土’,‘剑锋金’,‘山头火’, ‘涧下水’,‘城墙土’,‘白腊金’, ‘杨柳木’,‘泉中水’,‘屋上土’, ‘霹雷火’,‘松柏木’,‘常流水’, ‘沙中金’,‘山下火’,‘平地木’, ‘壁上土’,‘金箔金’,‘覆灯火’, ‘天河水’,‘大驿土’,‘钗钏金’, ‘桑松木’,‘大溪水’,‘沙中土’, ‘天上火’,‘石榴木’,‘大海水’); var i:integer; begin i: