Найти сумму элементов главной диагонали двумерного массива (3х3)

Var r: array[1..3,1..3] of integer; i,j,n,k,sum: integer;   b: array[1..30]of integer; beginrandomize; writeln('исходная матрица: '); for i: =1 to 3 dobeginfor j: =1 to 3 dobeginr[i,j]: =random(15)-5; write(r[i,j]: 3); end; writeln; end; // cумма диагоналиwriteln; for i: =1 to 3 dobeginfor j: =1 to 3 dobeginif i=j then beginwrite(r[i,j]: 3); sum: = sum + r[i,j]; end elsewrite(' ': 3); end; writeln; end; writeln(sum); end.

Иван: французский, китайский. антон: , японский. пётр: шведский, греческий. поясняю на сколько это возможно. 2) антон не знает шведский и французский. 3)пётр (он самый высокий - пункт 1) не знает французский. значит, французский - иван. 4) пётр не знает яп. и кит. 5) антон не знает кит. и греч. 4),5) => китайский - иван. с иваном 2),5) => антон не знает греческий и шведский (фр. и кит. уже у ивана). значит, их знает пётр. антону, в таком случае, достаются и японский. надеюсь, понятно.

можно назвать - собака 

или 

агент @ мail.ru