Напишите программу которая заполняет матрицу размером 7х7 случайными числами, а затем записывает в элементы отмеченные на рисунках серым фоном число 99.

//PascalABC.Net 3.2const N = 7; //Порядок квадратной Матрицыtype me = array[1..N, 1..N] of integer; {пользовательский тип для передачи в функцию или процедуруматрицы}procedure _randomMatrix(var a: me; l, r{левая/правая граница интервала}:integer);beginrandomize;  for var i:=1 to N do    for var j:=1 to N do a[i, j]:=random(l, r);end;procedure _printMatrix(a: me); //построчное выведение матрицы на экранbegin  for var i:=1 to N do    for var j:=1 to N do writeln ('[', i:2, ', ', j:2, '] = ', a[i, j]);end;beginvar matr: me;_randomMatrix(matr, -15, 15);_printMatrix(matr);for var i:=0 to 3 dobegin    for var j:=4-i to 4+i do matr[i+1, j]:=99;    for var j:=4-i to 4+i do matr[7-i, j]:=99;end;writeln;_printMatrix(matr);end.

Const   N = 7;Var   A:array[1..N,1..N] of integer;   i,j:integer;BeginFor i:= 1 to N do    Begin    For j:= 1 to N do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ')        End;    WriteLn    End;WriteLn;For i:= 1 to N div 2+(N mod 2) do    Begin    For j:= 1 to N do        Begin        if (j<=N div 2+i)and(N div 2-i+(N mod 2)<j) then A[i,j]:=99;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;For i:= (N div 2)+(N mod 2)+1 to N do    Begin    For j:= 1 to N do        Begin        if (i-N div 2-1<j)and(j<=N+N div 2+1-i) then A[i,j]:=99;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;End.