напишите программу увеличивающую каждый элемент матрицы (n,m) в 3 раза и сохраняющую результат в виде второй матрицы

program mr;var i,j,n,m,g: byte;a,b: array[1..10,1..10] of integer;beginwriteln('Введите размер массива n<10 и m<10 :');Read(n,m);writeln('Заполняем матрицу : ');for i:=1 to n do for j:=1 to m do begin Read(a[i,j]); b[i,j]:=1; for g:=0 to 2 do b[i,j]*=a[i,j]; end; writeln('');for i:=1 to n dofor j:=1 to m do writeln('м1 : ',a[i,j], ' м2 : ',b[i,j]);end.

for g:=0 to 2 do b[i,j]*=a[i,j]; после квадратных скобок точно верно??? пишет что какое действие должно быть