const n=6;
var a:array[1..n,1..n]of byte;
      i,j:byte;
begin
Randomize;
for i:=1 to n do
  for j:=1 to n do
   a[i,j]:=random(10);
for i:=1 to n do
  a[i,i]:=0;
for i:=1 to n do 
   begin
      for j:=1 to n do
      write(a[i,j],' '); 
      writeln;
   end;
readln;
end.