skon

Program pp ;
Uses Wincrt;
Type
  mat = Array [1..100,1..100] Of Integer ;
  tab = Array [1..100] Of Integer ;
Var
  m2: mat;
  m : mat ;
  t: tab;
  t2: tab;
  t3: tab;
  n : Integer;

Procedure remp (Var m:mat ;var n:Integer);
Var
  i,j: Integer;
Begin
  Write('ektb kade thb n');
  Readln(n);
  For i:=1 To n Do
    For j:=1 To n Do
      Readln(m[i,j]) ;
End;

Procedure transs (Var m2:mat ;Var t:tab ;n:Integer );
Var
  i,j,k: Integer;
Begin
  For i:=n Downto 1 Do
    For j:=1 To n Do
      For k:=1 To n Do
        m2[j,k] := t[i]
End;

Procedure trans (Var t:tab ;m:mat; n:Integer);
Var
  i,j: Integer;
Begin
  For i:=1 To n Do
    For j:=1 To n Do
      m[j,i] := t[i];
  transs (m2,t ,n);
End;

Procedure show (m2:mat;n:Integer);
Var
  i,j: Integer;
Begin
  For i:=1 To n Do
    begin
         For j:=1 To n Do
      Write(m2[i,j ]:10);
     writeln;
    end;


End;
Begin
  remp(m,n);
    show(m,n);
  trans (t,m,n ) ;
  show(m,n);
End.
Begin
End.
End.