{數組測試}
{結果應為: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<6 do
    y[ss]:=ss;
    x:=y[ss];
    sd(x);
    ss:=ss+1
  endwh
end.