Составить программу, реализующую умножение матриц размерностью 3 х 3

Uses crt; const n=3; var i,j,k: integer; a,b,c: array[1… n,1… n] of integer; beginrandomize; writeln ('1 Массив: '); for i: =1 to 3 dobeginfor j: =1 to 3 dobegina[i,j]: =random (15); write (a[i,j],'); end; writeln; end; writeln ('2 Массив: '); for i: =1 to 3 dobeginfor j: =1 to 3 dobeginb[i,j]: =random (15); write (b[i,j],'); end; writeln; end; for i: =1 to 3 dofor j: =1 to 3 dofor k: =1 to 3 doc[i,j]: =c[i,j]+a[i,k]*b[k,j]; writeln ('Итоговый Массив: '); for i: =1 to 3 dobeginfor j: =1 to 3 dowrite (c[i,j],'); writeln; end; end.