var a,b:integer;
begin
while a*4<65 do
begin
writeln('кролик: ',a,' гусь: ',(64-a*4) div 2);
a:=a+1;
end;
end.

var k:integer;
begin
k:=0;
while k*4<=64 do
begin
 writeln('кроликов: ',k,', гусей: ',(64-k*4) div 2);
 k:=k+1;
 end;
end.

Результат:
кроликов: 0, гусей: 32
кроликов: 1, гусей: 30
кроликов: 2, гусей: 28
кроликов: 3, гусей: 26
кроликов: 4, гусей: 24
кроликов: 5, гусей: 22
кроликов: 6, гусей: 20
кроликов: 7, гусей: 18
кроликов: 8, гусей: 16
кроликов: 9, гусей: 14
кроликов: 10, гусей: 12
кроликов: 11, гусей: 10
кроликов: 12, гусей: 8
кроликов: 13, гусей: 6
кроликов: 14, гусей: 4
кроликов: 15, гусей: 2
кроликов: 16, гусей: 0