program greate_graph;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var f:text;
n,i,j:integer;
b:boolean;
a:array[1..1000,1..1000] of integer;
begin
readln(n);
assign(f,'graph.dat');
Rewrite(F);
writeln(f,n);
for i:=1 to n do
for j:=i+1 to n do begin
a[i,j]:=random(50)+1;a[j,i]:=a[i,j];
end;

for i:=1 to n do begin
for j:=1 to n-1 do
write(f,a[i,j],' ');
writeln(f,a[i,n]);
end;
CLOse(f);
end.