(*PROGRAM INF13*);                                
 CONST MXIND=200;                                 
 VAR K,N,ANZ,I,J:INTEGER;                         
     A:ARRAY[1..MXIND]OF INTEGER;                 
                                                  
  FUNCTION GETA(I,J:INTEGER):INTEGER;             
   VAR D:INTEGER;                                 
  BEGIN                                           
   D:=J-I;                                        
   IF D<0 THEN                                    
    BEGIN D:=-D;I:=I+N-2*D END;                   
   IF D>=K THEN GETA:=0                           
   ELSE                                           
    GETA:=A[D*(2*N-D+1)+I-N*ORD(D<>0)]            
  END;                                            
                                                  
BEGIN                                             
 WRITE("N =");READLN(N);                          
 WRITE("K =");READLN(K);                          
 WRITE("N =",N);                                  
 ANZ:=K*K+(N-K)*(2*K-1);                          
 WRITELN("K =",K,"N =",N,"ANZAHL =",ANZ);         
 IF ANZ>MXIND THEN                                
  WRITELN("MEHR ALS",MXIND,"ELEMENTE!")           
 ELSE                                             
  BEGIN                                           
   FOR I:=1 TO MXIND DO A[I]:=I;                  
                                                  
   FOR I:=1 TO N DO                               
    BEGIN                                         
     FOR J:=1 TO N DO                             
       WRITE(GETA(I,J));                          
     WRITELN                                      
    END                                           
  END                                             
END.