{
task:zigzag
lang:pascal
}
program zigzag;
var a:array [1..100,1..100] of integer;
    n,i,j:byte;
    k,h,m,p:integer;
begin
readln(n,k);
h:=1;
i:=1;
j:=1;
a[1,1]:=1;
repeat
 while (i-1>0)and(j+1<=n) do begin
  h:=h+1;
  i:=i-1;
  j:=j+1;
  a[i,j]:=h;
 end;
 if j<n then j:=j+1 else i:=i+1;
  h:=h+1;
 a[i,j]:=h;
 while (i+1<=n)and(j-1>0) do begin
  h:=h+1;
  i:=i+1;
  j:=j-1;
  a[i,j]:=h;
 end;
 if i<n then i:=i+1 else j:=j+1;
 h:=h+1;
 a[i,j]:=h;
until h=n*n;
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]=k then
   writeln(i,' ',j);
end.
