program ed;</br>
const nmax=10;</br>
type tarr=array[1..nmax,1..nmax] of longint;</br>
var a,rez:tarr;</br>
i,j,n,m,k:integer;</br>
function track(const a:tarr;</br> const n:integer):longint;</br>
var i:integer;</br> res:longint;</br>
Begin
res:=0;</br>
for i:=1 to n do res:=res+a[i,i];</br>
track:=res;</br>
end;</br>
Begin
readln(n,m);</br>
randomize;</br>
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10);</br>
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:3);</br>
writeln;</br>
end;</br>
while m<>0 do begin
writeln(track(a,n));</br>
fillchar(rez,sizeof(rez),0);</br>
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
rez[i,j]:=rez[i,j]+a[i,k]*a[k,j];</br>
a:=rez;</br>
dec(m);</br>
end;</br>
readln;</br>
end.