phantich pascal

var a,x:array[1..200] of longint;
        n,k,d,s:longint;
procedure tim_uoc;
var i:longint;
begin
        d:=1;a[d]:=k;
        for i:=2 to trunc(sqrt(k)) do
        begin
                if k mod i=0 then
                begin
                        inc(d);a[d]:=i;
                        inc(d);a[d]:=k div i;
                end;
        end;
        if sqrt(k)=trunc(sqrt(k)) then dec(d);
end;
procedure xuat(k:longint);
var i:longint;
begin
        for i:=1 to k do
                if x[i]>0 then
                        writeln(a[i],' ',x[i]);

end;
procedure vet(i:longint);
var j:longint;
begin
        for j:=0 to (n-s) div a[i] do
        begin
                x[i]:=j;
                s:=s+j*a[i];
                if (i=d) or (s>=n) then
                begin
                        if s=n then
                        begin
                                xuat(i);
                                halt
                        end;
                end
                else
                        vet(i+1);
                s:=s-j*a[i];

        end;
end;
begin
        assign(input,'phantich.inp');reset(input);
        assign(output,'phantich.out');rewrite(output);
        read(n,k);
        tim_uoc;
        vet(1);
        writeln(0);
end.