Разложить натуральное число M на K целых слагаемых, которые различаются не более, чем на единицу

var
  K, i: shortint;
  M, x, y, j: integer;
  t: text;
 
begin
  assign(t, 'input.txt');
  reset(t);
  read(t, M, K);
  close(t);
  assign(t, 'output.txt');
  rewrite(t);
  x := M div K; //находим число, которым надо заполнить новый массив
  y := M mod K; //находим остаток , который в дальнейшем распределяем по массиву, начиная с конца
  for i := 1 to K do
    a[i] := x; // будто бы уже существует некий массив a, присваиваем всем его значениям значение x
  for j := 1 to y do //присваиваем каждую значение y , начиная от 1-го, массиву
  begin
    for i := K downto 1 do
      repeat begin a[i] := y; y := y - 1; end; until y = 0; 
  end;
  for i := 1 to K do
    write(t, a[i]);
  close(t);
end.

var
  M, K, x, y, i : integer;
begin
  M := 13;
  K := 4;
 
  x := M div K; //находим число, которым надо заполнить новый массив
  y := M mod K; // находим остаток от деления, который надо распределить
  for i:=1 to K do
    if i<(K+1-y) then Write(x,' ') else Write(x+1,' ');
  WriteLn;
end.

  for i:=1 to K do begin
      if i<(K+1-y) then Write(x) else Write(x+1);
      if i<k then Write(' ');
  end;