写出下面算法中带标号语句的频度。 TYPE ar=ARRAY[-1…n]OF datatype； PROCEDURE perm (a：ar；k，n：integer)； VAR x：datatype；i：integer； BEGIN (1)IF k=n THEN BEGIN (2)FOR i:=1 TO n DO (3)write (a[i])； writen； END ELSE BEGIN (4)FOR i:=k TO n DO (5)a[i]:=a[i]+i*i； (6)perm(a，k+1，n)； END END 设k的初值等于1。