n = 100 'надо голов
c = 100 'всего денег
k1 = 10 'цена за быка
k2 = 5 'за корову
k3 = 0.5 'за теленка
FOR i = 0 TO c\k1
FOR j = 0 TO c\ k2
FOR k = 0 TO c\k3
IF i + j + k = n AND i * k1 + j * k2 * k * k3 = c THEN PRINT "Быков:"; i;" Коров:" ; j; " Телят:"; k
NEXT
NEXT
NEXT