Составить алгоритм решения : сколько можно купить петухов, куриц и цыплят, платя за петуха 10 руб., за курицу — 5 руб., а за цыпленка — 0,5 руб., если на 100 руб. надо купить 100 голов птицы?

Фрагмент на Паскале:
n:=100;
for i:=0 to n do
   for j:=0 to n do
       for k:= 0 to n do
           if ((i+j+k) =n)  and ((10*i + 5*j +0.5*k)=n) then
           begin
              WriteLn  ('Петухов ',i);
              WriteLn  ('Куриц ',j)
              WriteLn ('Цыплят ', k)
           end;