Var
 A,AT:Array[1..100,1..100] of Real;
 M,N,i,j:Byte;

Begin
 Write('Number of lines = ');
 Readln(M);
 Write('Number of columns = ');
 Readln(N);
 for i:=1 to M do
  for j:=1 to N do
   begin
    write('A[',i,',',j,'] = ');
    readln(A[i,j]);
    AT[j,i]:=A[i,j];
   end;
 writeln;
 writeln('Initial matrix:');
 for i:=1 to M do
  begin
   for j:=1 to N do write(A[i,j]:8:3);
   writeln;
  end;
 writeln('Transposed matrix:');
 for i:=1 to N do
  begin
   for j:=1 to M do write(AT[i,j]:8:3);
   writeln;
  end;
 Readln
End.