beads 1 program 'Identity matrix'

var
	id : array^2 of num
	n = 5
	
calc main_init
	loop from:1 to:n index:i
		loop from:1 to:n index:j
			id[i,j] = 1 if i == j else 0