program pervaya;


{--- Konstanti ---}
const N = 5;


{--- Peremennie ---}
var
 {
  deystvitelnaya (real)
  kvadratnaya (ot 1 do N elementov po shirine, ot 1 do N po visote)
  matrica (array)
 }
 m : array [1..N, 1..N] of real;

 { peremennaya, neobhodimaya dla raboti s faylom Vhodnix dannix }
 vhod : text;
 result : text;



{--- Perestanovka Stolbcov ---}
procedure RStolbci(i1, i2 : integer); {perestanovka stolbcov}
begin

end;

{--- Perestanovka Strok ---}
procedure RStroki(j1, j2 : integer); {perestanovka strok}
begin

end;


{--- Osnovnaya procedura, sochetaet v sebe perestanovku stolbcov
 --- i strok. Esli p = 0, to menautsa mestami stroki n1 i n2,
 --- Esli p = 1, to perestavlautsa stolbci n1 i n2.
}
procedure Preobrazovanie(n1, n2, p : integer);
begin
 if (p = 0) then RStroki(n1, n2);
 if (p = 1) then RStolbci(n1, n2);
end;



{--- Osnovnaya programma ---}
begin


end.