let type ar = array of int var table := new ar[100*100] of 0 in for i:=0 to 100 do for j:=0 to 100 do if i = j then table[i*100 + j] := 1 end