九九乘法表的一个过程。 procedure nine(n:integer); var i, j: integer; line: string; begin for i:=1 to n do begin //生成第i行 line:=''; //第i行共有i句口诀 for j:=1 to i do begin line:=line+inttostr(j)+'×'+inttostr(i)+'='+inttostr(i*j)+' &#3