var
  a:array [1..3,1..4,1..5] of Integer;
  s,i,j,k:Integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  for i:=Low(a) to High(a) do
    for j:=Low(a[i]) to High(a[i]) do
      for k:=Low(a[i,j]) to High(a[i,j]) do
  a[i,j,k]:=1;
  s:=0;
  for i:=Low(a) to High(a) do
    for j:=Low(a[i]) to High(a[i]) do
      for k:=Low(a[i,j]) to High(a[i,j]) do
  s:=s+a[i,j,k];
  Writeln(s);
  Readln;
end.
我想知道a[i,j,k]:=1;该语句在上面程序起到什么作用？当删除这条语句的时候，结果是0。
原答案：60。