program doghen;
const
  sum = 64;
var
  dog, han, count : integer;
begin
  count := 0;
  for dog := 1 to sum div 4 - 1 do
    begin
      for han := 1 to sum div 2 - 1 do
        begin
          if han*2 + dog*4 = sum then
            begin
              count := count + 1;
              writeln('Вариант ',count,'       Собак: ', dog, '    Куриц: ', han);
            end;
        end;
    end;
  writeln('Всего вариантов: ', count);
end.