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

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 штуки (если по одному блюду на завтрак, обед и ужин), то блюд:)