Даны 3 матрицы а, b, c. сформировать 3 матрицы: а*в а*с в*с матрицы вводятся с клавиатуры решить с процедуры или функции (pascal)

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! function readmatrix(c: char; m,n: integer): array[,] of real; begin   writeln('вводите элементы матрицы ',c,' построчно');   result: =readmatrreal(m,n); end; function matprod(a,b: array[,] of real): array[,] of real; begin   var (m,n): =(a.rowcount,a.colcount);   result: =new real[m,n];   for var i: =0 to m-1 do       for var j: =0 to n-1 do           result[i,j]: =a[i,j]*b[i,j] end; begin   var (m,n): =readinteger2('количество строк и столбцов в матрицах: ');   var a: =readmatrix('a',m,n);   var b: =readmatrix('b',m,n);   var c: =readmatrix('c',m,n);   var ab: =matprod(a,b);   writeln('*** a*b ***');   ab.print(8,4); writeln(8*n*'-');   var ac: =matprod(a,c);   writeln('*** a*c ***');   ac.print(8,4); writeln(8*n*'-');   var bc: =matprod(b,c);   writeln('*** b*c ***');   bc.print(8,4) end. пример количество строк и столбцов в матрицах: 3 4 вводите элементы матрицы a построчно 2.1 3.2 -1.7 4 -2 0 6.1 0.3 0.2 1.7 -2 0.5 вводите элементы матрицы b построчно 1 2 3 4 5 6 7 8 -1 -2 -3 -4 вводите элементы матрицы c построчно 8.3 2.12 5.7 0 3.9 7.7 4 1 -1 -2 5.2 -0.9 *** a*b ***   2.1000  6.4000 -5.1000 16.0000 -10.0000  0.0000 42.7000  2.4000   -0.2000 -3.4000  6.0000 -2.0000 *** a*c ***   17.4300  6.7840 -9.6900  0.0000   -7.8000  0.0000 24.4000  0.3000   -0.2000 -3.4000-10.4000 -0.4500 *** b*c ***   8.3000  4.2400 17.1000  0.0000   19.5000 46.2000 28.0000  8.0000   1.0000  4.0000-15.6000  3.6000

Все за одного и одни за всех