uses crt;
type Matr=array[1..5,1..5] of integer;
procedure Vvod(var m:Matr;n,k:byte);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to k do
m[i,j]:=random(10);
end;
procedure Vyvod(var m:Matr;n,k:byte;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
begin
for j:=1 to k do
write(m[i,j]:3);
writeln;
end;
writeln;
end;
procedure Trans(m:Matr;var m1:Matr; n,k:byte);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to k do
m1[j,i]:=m[i,j];
end;
var a,b,c,at,bt,ct:Matr;
begin
clrscr;
Vvod(a,4,3);
Vyvod(a,4,3,'A');
Trans(a,at,4,3);
Vyvod(at,3,4,'AT');
write('Нажмите Enter');
readln;
Vvod(b,5,4);
Vyvod(b,5,4,'B');
Trans(b,bt,5,4);
Vyvod(bt,4,5,'BT');
write('Нажмите Enter');
readln;
Vvod(c,5,5);
Vyvod(c,5,5,'C');
Trans(c,ct,5,5);
Vyvod(ct,5,5,'CT');
write('Нажмите Enter');
readln
end.