procedure readint64(var x : int64); var t : longint; begin read(t); x := t; end; MAX_POSSIBLE := int64(20*20*20*5)*int64(maxlongint); read(a, b, c); for i := 0 to a-1 do for j := 0 to b-1 do for k := 0 to c-1 do readint64(d[i, j, k]);
max2 := -MAX_POSSIBLE; for x := 0 to a-1 do for y ...