Разбиение натурального числа на 3 слагаемых

[Neitrosha]

а что в нем не так было?)

а можно объяснить некоторые моменты
рандомайз то я понял.

что означает вот это:
Inc(b);
Dec(c);

и вот это

b := a + 1 + Random(x div 3);

типа к элементу А прибавить единицу и случайное число. а вот что в скобках?

[Neitrosha]

а можно объяснить код, если не сложно?
с варом понятно, там переменные
введите число-это тоже понятно
потом включается датчик случайных чисел для слагаемых, которые составляют данное число
а вот что означает А присваивается и тот дальнейший код

потом "пока с=а или с=б"
и вот дальнейшее

ну и то, что во второй эдит выводится результат тех чисел-тоже понятно

[Kingdom_Reborn]

Inc(b) - это b := b + 1
Dec(c) - это c := c - 1
Это нужно делать, когда у нас c = a или c = b. Мы можем всегда прибавлять к b единицу, а от c отнимать единицу пока все три числа a, b, c не станут различными.

x div 3 - деление x на 3 нацело.
b := a + 1 + Random(x div 3) - это мы получаем число b, такое, что оно как минимум на единицу больше a и при этом a + b < x. Последнее условие нужно для того, чтобы откорректировать потом третье чило c, так как оно может оказаться равным b или равным c.

[Neitrosha]

блииииин, спасибо огромное)