let type ant = array of int var x : ant := new ant[20] of -1 in for i:=1 to 19 do x[i] := i*i; x end