Pascal开关灯问题

有N个灯放在一排，从1到N依次顺序编号。有N个人也从1到N依次编号。1号将灯全部关闭，2将凡是2的倍数的灯打开；3号将凡是3的倍数的灯作相反处理（该灯如为打开的，则将它关闭；如关闭的，则将它打开）。以后的人都和3号一样，将凡是自己编号的倍数的灯作相反处理。试计算第N人操作后，哪几盏灯是点亮的。

提示：1—表示灯打开，0—表示灯关闭

var
  k,n,i,j:longint;
  a:array[1..100] of  0..1;
begin
	write('N=');
	readln(n);
	for i:=1 to n do a[i]:=0;
	for i:=2 to n do
	begin
		j:=i;
		while j<=n do
		begin
			a[j]:=1-a[j];
			j:=j+i;
		end;
	end;
	for i:=1 to n do write(a[i]);
	writeln;
end.

有些同学会觉得这句话

a:array[1..100] of  0..1;

是什么鬼？

表示a是一个数组，但是数组中每个元素只能保存0和1，除这两个数以外都不能保存。