初学者请教问题

[HitSoft]

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。

[hongqi162]

数组赋值

[HitSoft]

我自己用白纸计算上面程序的答案，我得出的结果是59，还有一个1不知道跑那里去。