Написать программу(паскаль авс) в клетке сидят фазаны и кролики, вместе у них 64 лапы. Указать все возможные сочетания кроликов и фазанов

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

program RabbitsAndPheasants;

var
totalLegs, rabbits, pheasants, combinations: integer;

begin
totalLegs := 64;

for rabbits := 0 to totalLegs div 4 do // assuming each rabbit has 4 legs
begin
pheasants := (totalLegs - rabbits * 4) div 2; // assuming each pheasant has 2 legs
combinations := rabbits + pheasants;

end;
end.