NotMyCode

Program carremag;
Uses Wincrt;
Type
  mat = Array [1..14,1..14] Of Byte ;
Var
  N : Integer ;
  M : mat;

Procedure saisien (Var n:Integer);
Begin
  Repeat
    Writeln ('n=');
    Readln(n);
  Until (n In [1..14]) And (n Mod 2 <>0);
End;

Procedure zero (Var m:mat ;n:Integer);
var
 i, j : Integer;
Begin
  For i:=1 To n Do
    For j:=1 To n Do
      m[i,j] := 0;
End;

Procedure affiche (n:Integer;m:mat);
var
 i, j : Integer;
Begin
  For i:=1 To n Do
    begin
    For j:=1 To n Do
      Write(m[i,j]:4);
        writeln;
    end;
End;

Procedure remp (N : Integer ; Var M : mat );
Var
  I, J, X : Integer ;
Begin
  x := (N Div 2) + 1 ;
  m[x+1,x] := 1;
  j := x;
  i := x+1;
  For i:=2 To n*n Do
    begin
      j := j-1;
      i := i+1;
      If j<1 Then j := n;
      m[i,j] := x;
    end;
End;
Begin
  saisien (n);
  zero (m,n);
  affiche(n,m);
  remp (n,m);
End.