Написать программу в паскале. даны квадратные матрицы а и в порядка n. получить матрицу ab-ba.

Var a,b: array [1..10,1..10] of integer;   i, j, n: integer; begin randomize; writeln('введите размерность n'); readln(n); writeln('матрица а'); for i: =1 to n do begin for j: =1 to n do   begin a[i,j]: = random(10)+1; write(a[i,j]: 3); end; writeln; end; writeln('матрица b'); for i: =1 to n do begin for j: =1 to n do   begin b[i,j]: = random(10)+2; write(b[i,j]: 3); end; writeln; end; writeln('ответ: матрица ab'); for i: =1 to n do for j: =1 to n do   begin c[i,j]: =(a[i,j]*b[i,j]); end; writeln; for i: =1 to n do   begin for j: =1 to n do   begin write(c[i,j]: 3); end; writeln; end; writeln('ответ : матрица ва'); for i: =1 to n do for j: =1 to n do begin d[i,j]: =(b[i,j]*a[i,j]); end;   for i: =1 to n do begin for j: =1 to n do begin write(d[i,j]: 3); end; writeln; end; end.

a=156.78 - float

b="ata" - str

c= True - bool

ppp='stl' - str

max=-25 - int

min = false - bool

h=0 - int

p=101.0 - float