学习编译原理

				{数组测试}
				{结果应为:0,1,2,3,4,5}
				program sd
				type  i=integer;
				      sarray=array [0..5] of integer;
				var  i x;
				     sarray y;
				     integer ss;
				procedure sd(integer a);
				begin 
				   write(a)
				end    
				begin
				  ss:=0;
				  while ss				    y[ss]:=ss;
				    x:=y[ss];
				    sd(x);
				    ss:=ss+1
				  endwh
				end.