Пусть кроликов было r, а кур - h. Тогда 2h+4r=n ⇒ h=(n-4r)/2
var
h, r, n: integer;
{ h - куры (hens), r - кролики (rabbits) }
begin
Write('Введите общее количество ног: ');
Readln(n);
for r := 0 to (n div 4) do
begin
h := (n - 4 * r) div 2;
Writeln(h, ' ', r)
end
end.
Тестовое решение:
Введите общее количество ног: 12
6 0
4 1
2 2
0 3