(*PROGRAM INF23*);                                          
 VAR I,J,M,N,X:INTEGER;                                     
     GERADE:BOOLEAN;                                        
                                                            
 PROCEDURE PRINT(V:INTEGER);                                
 BEGIN                                                      
  IF V<=9 THEN WRITE(" ");                                  
  WRITE(V)                                                  
 END;                                                       
                                                            
BEGIN                                                       
 READLN(M);                                                 
                                                            
 (*FUER M=2*K WIRD DER SPIELPLAN FUER N=M-1 BENUTZT, WOBEI*)
 (*FREIE SPIELTAGE EINER MANNSCHAFT ALS SPIELE MIT DER    *)
 (*MANNSCHAFT M GEWERTET WERDEN.                          *)
 GERADE:=(M MOD 2)=0;N:=M-ORD(GERADE);                      
                                                            
 FOR I:=1 TO N DO (*FUER ALLE MANNSCHAFTEN:*)               
  BEGIN PRINT(I);WRITE("Ý");                                
   FOR J:=1 TO N DO (*FUER ALLE TAGE:*)                     
    BEGIN                                                   
     X:=J-I+1;IF X<=0 THEN X:=N+X;                          
     IF X<>I THEN PRINT(X)                                  
     ELSE                                                   
      (*NICHT ERLAUBTE BEGEGNUNG, AUSSETZEN ODER MIT      *)
      (*MANNSCHAFT M PAAREN:                              *)
       IF GERADE THEN PRINT(M) ELSE WRITE("  * ");          
    END;                                                    
   WRITELN                                                  
  END;                                                      
 IF GERADE THEN                                             
  BEGIN                                                     
  (*NUN MUESSEN NOCH DIE PAARUNGEN FUER MANNSCHAFT M      *)
  (*AUSGEGEBEN WERDEN:                                    *)
   PRINT(I);WRITE("Ý");                                     
   FOR J:=1 TO N DO                                         
    IF J MOD 2=1 THEN PRINT((J-1)DIV 2+1)                   
                 ELSE PRINT(J DIV 2+M DIV 2)                
  END;                                                      
END.