На ферме установлены следующие расценки: бык стоит 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