главный повар может выбрать блюда на завтрак, обед и ужин? Выведите все

возможные варианты их количество.

Ответы:

var

   i, j, o, n: integer,

begin

     n := 1,

     for i := 1 to 25 do

         for j := 1 to 25 do

             for o := 1 to 25 do

             begin

                  writeln(n, :   , i, , j, , o),

                  inc(n),

             end,

end.

Это всё выведет (можете массив сделать из названий блюд, но 25 я не придумаю), а количество можно так посчитать: 25 блюд по 3 штуки (если по одному блюду на завтрак, обед и ужин), то блюд:)