let type t=array of int var size:=6 var a:=new t[size] of 0 in (for x:=0 to size-1 do a[x]:=((x+1)*(x+1));a) end