Паскаль Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10,99], и находит максимальный

uses crt;const nmax=20;var a:array[1..nmax,1..nmax] of integer; i,j,max,min,idxi,idxj,n,idxii,idxjj:integer;begin clrscr; repeat write(\'n=\'); readln(n); until n in [1..nmax]; writeln(\'ГЊГ*òðèöГ* :\'); for i:=1 to n do for j:=1 to n do a[i,j]:=10+random(90); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; max:=a[1,1]; min:=a[1,1]; idxi:=1;idxj:=1; for i:=1 to n do for j:=1 to n do if a[i,j]>max then begin max:=a[i,j]; idxi:=i; idxj:=j; end else if a[i,j]<min then begin min:=a[i,j]; idxii:=i; idxjj:=j; end; writeln(\'ГЊГЁГ*ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = \',min,\' i=\',idxii,\' j=\',idxjj); writeln(\'ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = \',max,\' i=\',idxi,\' j=\',idxj); readkey;end.