Здравствуйте, Кондрашов Вадим Александрович!
Решение задачи в приложении.


Приложение:
uses crt;
const n=5; {размеры матрицы}
m=6;
type Tmatr=array[1..n,1..m] of real;{тип матрицы}
procedure Vvod(var mt:Tmatr);{присвоение значений элементам матрицы}
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
mt[i,j]:=10*random;{псевдослучайные числа в диапазоне(0,10)}
end;
procedure Vyvod(var mt:Tmatr;s:string);{вывод матриц на экран}
var i,j:byte;
begin
writeln('Matrica ',s,':');
for i:=1 to n do
begin
for j:=1 to m do
write(mt[i,j]:6:1);
writeln;
end;
end;
procedure UmMatCh(var mt:Tmatr; b:integer);{умножение матрицы на число}
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
mt[i,j]:=mt[i,j]*b;{все элементы умножаются на число}
end;
procedure SumMatr(m1:Tmatr;var mt:Tmatr);{сумма матриц}
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to m do
mt[i,j]:=mt[i,j]+m1[i,j];{соответствующие элементы складываются}
end;
var a,b,c:Tmatr;{раздел переменных – 3 маирицы}
begin {основная программа, по очереди вызываются нужные процедуры}
clrscr;
randomize;
Vvod(b);
Vyvod(b,'B');
UmMatCh(b,25);
Vyvod(b,'25*B');
readln;
Vvod(c);
Vyvod(c,'C');
UmMatCh(c,8);
Vyvod(c,'8*C');
readln;
Vvod(a);
Vyvod(a,'A');
UmMatCh(a,9);
Vyvod(a,'9*A');
readln;
SumMatr(c,b);
SumMatr(a,b);
Vyvod(b,'25B+8C+9A');
readln
end.