perl, 120 bytes

Result

AC

Duration

517ms

Code [DL]

@a=`dd`=~/\d+/g;$a[$_]-=$a[$_+3]for 0..8;$s-=$a[$_]*=$a[$p=++$_%3+3]*$a[$q=++$_%3+6]-$a[$p+3]*$a[$q-3]for 0..2;print$s/6

stdin

28 77 02
46 46 58
92 15 09
82 84 99

stdout

47362

stderr

0+1 records in
0+1 records out

strace