На ферме установлены следующие расценки:
бык стоит 25 000р.,
корова - 16 000р.,
телёнок - 2000р..
Составьте алгоритм, позволяющий найти все варианты покупки на этой ферме 100 голов скота на сумму 500 000р..

const m=500000; p1=25000; p2=16000; p3=2000; n=100;var k1,k2,k3:integer;begin for k1:=0 to m div p1 do  for k2:=0 to (m-k1*p1) div p2 do    begin    k3:=n-k1-k2;    if k1*p1+k2*p2+k3*p3=m then writeln(k1,' ',k2,' ',k3);    end;end.Результат:10 5 85