Заяц

var N,K:integer;
    i,currentStep,numberCells:integer;
    StepArray: array[1..300] of integer;
    
procedure weHaveNextStep(var numberNextStep:integer);
var ko: integer;
    key,isResult:boolean;
begin
    numberNextStep:=-1;
    if numberCells > 1 then
    begin
        ko:=numberCells;
        key:=true;
        isResult:=false;
 
        while (key) do
        begin
            if(StepArray[ko-1] < K) then
            begin
                isResult:=true;
                key:=false;
            end
            else if(ko>2) then
                ko:=ko-1
            else
                key:=false;
        end;
            
        if (isResult) then
            numberNextStep:=ko
    end;
end;
 
procedure writeArr;
var j: integer;
begin
    for j:=1 to numberCells-1 do
        write(StepArray[j],'+');
        writeln(StepArray[numberCells]);
    
end;
 
    
begin
    read(N,K);
    writeln;
    numberCells:=N;
    
    for i:=1 to N do
        StepArray[i]:=1;
    writeArr();
    
 
    weHaveNextStep(currentStep);
    
    while(currentStep>0) do
    begin
        dec(StepArray[currentStep]);
        inc(StepArray[currentStep-1]);
        if (StepArray[currentStep]>1) then
        begin
            for i:=currentStep+1 to (currentStep + StepArray[currentStep] -1) do
                StepArray[i]:=1;
 
            numberCells:=numberCells+StepArray[currentStep]-1;
            StepArray[currentStep]:=1;
        end;
        if(StepArray[currentStep] = 0) then numberCells:=numberCells-1;
        weHaveNextStep(currentStep);
        writeArr();
    end;
end.