type matrice=array[1..10,1..10] of integer;
var a:matrice;
i,n:integer;
begin
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do
if (i=3) or (j=1) then a[i,j]:=1
else a[i,j]:=0;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
readln;
end.
