proc holmat n . .
   for i to n
      for j to n
         if i = 1 or i = n or j = 1 or j = n
            write "1 "
         else
            write "0 "
         .
      .
      print ""
   .
.
holmat 10
