const N = 1000

type
    IntArray = array[0..N, int]
    Matrix = array[0..N, IntArray]

var
    a: Matrix
    b: Matrix
    c: Matrix

for kk in 0..10:
    for i in 0..N:
        for j in 0..N:
            a[i][j] = i + j
            b[i][j] = i - j
            c[i][j] = 0


    for i in 0..N:
        for j in 0..N:
            for k in 0..N:
                c[i][j] += a[i][k] * b[k][j]

    var k = 0

    for i in 0..N:
        for j in 0..N:
            k += c[i][j]

    echo(k)