Блок-схема

Program matrixx;
Const
k=10;
Type
  matrix= Array [0..k, 0..k] of integer;
Var
  matrix1: matrix;
  i, j, n, b:Integer;
Procedure transp;
Begin
  For i := 1 to n do
  For j := i+1 to n do
  Begin
    b:=matrix1[i,j];
    matrix1[i,j]:= matrix1[j,i];
    matrix1[j,i]:=b;
  end;
  end;
 
Procedure readMatrix;
Begin
  Write ('Vvedite razmernost matricy n: ');
  ReadLn (n);
  For i := 1 to n do
  For j := 1 to n do
  Begin
    Write ('element [', i, ',', j, '] = ');
    ReadLn (matrix1 [i, j] );
  End;
 End;
 
Procedure writeMatrix;
Begin
  For i := 1 to n do
  Begin
    For j := 1 to n do
    Write (matrix1 [i, j] : 3);
    WriteLn;
  End;
End;
 Begin
   WriteLn ('transponirovanie matricy.');
   readMatrix;
   WriteLn;
 writeMatrix;
     transp;
     WriteLn;
     WriteLn('Transponirovannaya matrica:');
 writeMatrix;
     ReadLn;
END.