СРОЧНО!!! ПРОШУ ПОМОЧЬ!!! ЧАС!!! Заполнить матрицу a :array[1..5,1..7] of integer так, чтобы на кажДой позиции стояла сумма индексов i и j (т.е. a[i, j] = i + j) , вывести ее на экран. Создать матрицу a :array[1..M,1..N] of integerзаполнить ее так, чтобы на каждой позиции стояла разность индексов i и j (т.е. a[i, j] = i - j), (СONST M=5 N=9)

Var  a:array[1..5,1..7] of integer;  i,j:integer;Begin for i:= 1 to 5 do Begin   for j:= 1 to 7 do   Begin      a[i,j]:=i+j;      write(a[i,j],);   End;  Writeln;  End;End.2.Const  m = 5;  n = 9;Var  a:array[1..m,1..n] of integer;  i,j:integer;Begin   for i:= 1 to m do Begin   for j:= 1 to n do   Begin      a[i,j]:=i-j;      write(a[i,j],);   End;  Writeln;  End;End.