Старинная задача. Сколько можно купить быков, коров, телят, если на 400 рублей надо купить 100 голов - Pascal ABC

Формулировка задачи:

Старинная задача. Сколько можно купить быков (бык стоит 10 рублей), коров (по 5 рублей), телят (по 2 рубля), если на 400 рублей надо купить 100 голов скота? Составьте программу, которая решает эту задачу. Приведите результаты решения

Решение задачи: «Старинная задача. Сколько можно купить быков, коров, телят, если на 400 рублей надо купить 100 голов»

Листинг программы

uses crt;
var b,k,t,s: integer;
    zb,zk,zt: real;
begin
zb:=10; zk:=5; zt:=2;
for b:=0 to 100 do
    for k:=0 to 100 do
        for t:=0 to 100 do
            if ((b*zb)+(k*zk)+(t*zt)=400) and
               (b+t+k=100) then writeln(b:3,' быков, ',k:3,' коров, ',t:3,' телят');
end.

Объяснение кода листинга программы

Объявлены переменные b, k, t, s типа integer и zb, zk, zt типа real. Значения переменных zb, zk, zt равны соответственно 10, 5 и 2.
Используется цикл for для перебора всех возможных значений переменных b, k и t от 0 до 100.
Внутри цикла проверяется условие ((bzb)+(kzk)+(t*zt)=400) и (b+t+k=100). Если условие выполняется, то выводится сообщение с количеством быков, коров и телят, отсортированных по возрастанию, с шагом в 3.
Код завершается после выполнения всех итераций цикла.