Напишите пожалуйста кому не лень!
Хотя бы как умножать один элемент матрицы на остальные!
Заранее спасибо!

k := a[0, 0];
for i := 0 to 3 do
for j := 0 to 3 do
a[i, j] := a[i, j] * k;