В оранжерее было срезано 360 гвоздик. Причем красных на 80 больше, чем белых, а розовых на 160 штук меньше, чем красных. Какое наибольшее число одинаковых букетов можно составить из этого количества цветов? Сколько и каких цветов было в каждом букете? Красных – a, Белых – b, розовых –с Решить задачу языком программирования Pascal

Предыдущий
вопрос Следующий
вопрос

program Flowers;

var
red, white, pink, total, bouquets, maxBouquets: integer;

begin
maxBouquets := 0;

for red := 0 to 360 do
begin
for white := 0 to 360 do
begin
for pink := 0 to 360 do
begin
if (red = white + 80) and (pink = red - 160) and (red + white + pink = 360) then
begin
bouquets := red div 5;
if white div 5 < bouquets then
bouquets := white div 5;
if pink div 5 < bouquets then
bouquets := pink div 5;

end;

writeln('Максимальное количество одинаковых букетов: ', maxBouquets);
end.