Program zad;
uses crt;
const n=7;
var a:array[1..7,1..7] of integer;
i,j,k,s:integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
if ((i-j>=0) and (i+j<=n+1)) or ((i-j<=0) and(j+i>=n+1)) then a[i,j]:=0
else a[i,j]:=1; end; end;
for i:=1 to n do begin
for j:=1 to n do begin
write (a[i,j]:4);
end; writeln; end; readln;
end.