p:＝array(1..n)