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