program zada4a5;
var i, j, n : integer;
     a : array[1..200, 1..200] of 0..1;
begin
   write('Введём n: ');
   readln(n);
   for i := 1 to n do  
     for j := 1 to n do  
       if ((i = (n + 1) div 2) or (i = (n + 1) div 2 + (n + 1) mod 2)) and
          ((j = (n + 1) div 2) or (j = (n + 1) div 2 + (n + 1) mod 2))  
         then a[i, j] := 0  
         else a[i, j] := 1;
   if n < 80
     then
       for i := 1 to n do
         begin
           for j := 1 to n do write(a[i, j]);  
           writeln;  
         end
     else write('Вывести массив на дислей не получится, т.к. ширина экрана 80 символов');  
   readln;  
end.