program p70_43b;
uses crt;
const d=100;
var a:array[1..d,1..d]of integer;
    i,j,n,s:integer;

begin
 clrscr;
 write('n=');readln(n);
 n:=(n mod d)div 2 * 2 + 1; {asigurare ca n e impar, nenul, < d}
 Randomize;
 for i:=1 to n do for j:=1 to n do begin
  A[I,J]:=RANDOM(d);                          {Generarea automata}
  {Write('a[',i,',',j,']=');readln(a[i,j]);}  {Introducerea de la tastatura}
 end;
 clrscr;
 for i:=1 to n do for j:=1 to n do begin
  if j=1 then writeln; write(a[i,j]:5);
 end; Writeln;
 s:=0;
 for j:=1 to n do for i:=-abs(j-n div 2-1) to abs(j-n div 2-1) do inc(s,a[i+n div 2+1,j]);
 writeln;
 writeln('S=',s);
 readkey;
end.