#!/usr/bin/perl

$N=<>;
$K=<>;
$P=<>;


$consts[0]=50;     #max. sklady
$consts[1]=20;     #max. vyrobni doba
$consts[2]=1000;   #max. vzdalenosti
$consts[3]=100;    #max. cas = $consts[3]*$P
$consts[4]=10;     #max. naklad

#mesta
print "$N";
for ($it=0;$it<2;$it++) {
  for ($a=0;$a<$N;$a++) {
    printf ("%d%s",1+rand($consts[$it]),($a==$N-1)?"\n":" ");
  }
}

for ($i=0;$i<$N;$i++) {
  for ($j=0;$j<$N;$j++) {
    if ($i <= $j) {$vzdal[$i][$j]=1+rand($consts[2]);}
    else {$vzdal[$i][$j]=$vzdal[$j][$i];}
    printf ("%d%s",$vzdal[$i][$j],($j==$N-1)?"\n":" ");  
  }
}

#auticka
print "$K";
for ($a=0;$a<$K;$a++) {
  printf ("%d%s",1+rand($N),($a==$K-1)?"\n":" ");
}

#zakazky
print "$P";
for ($a=0;$a<$P;$a++) {
  $odkud=1+rand($N);
  do {$kam=1+rand($N);} while ($kam==$odkud);
  printf ("%d %d %d %d\n",1+rand($consts[3]*$P),1+rand($N),1+rand($N),1+rand($consts[4]));
}