Изменение своиств обьектов на слайде как называется

здесь не нужно учитывать порядок роз в букете, а только их количество.

program krysatul; uses crt; const  bel=8;   kras=7; var  i,j,nom: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   nom: =0; {количество вариантов}  for i: =0 to bel do {организуем цикл перебора для белых роз}       for j: =0 to kras do {организуем цикл перебора для красных роз}            if i+j=5 then {если выбрано в сумме 5 цветов}                      begin                          nom: =nom+1; {посчитать это как +1 вариант}                           writeln(nom,'-й вариант: ',i,' белых и ',j,' красных'); {напечатаем номер варианта и количество роз}                      end;       writeln();       writeln('всего вариантов: ',nom); {напечатаем количество вариантов}end.