Все 90 золотых (информатика9 класс; надо написать кодовую штучку программы, блок схему, зависимость. постановку )

дана блок-схема алгоритм

определить результат выполнения алгоритма при определённых значениях исходных данных

например, при x=16 и y=2

ввод: х=16 y=2

x=√16=4

y=y2=4

x=4+1=5

y=4+5=9

вывод: y=9

26

Объяснение:

a = 23 (дано число a)

выполняем цикл (увеличиваем число a на 5 и проверяем условие число a больше 35, если условие истинно (да) выходим из цикла, если ложное (нет), то повторяем цикл)

a = a + 5 = 23 + 5 = 28

a > 35 (28 > 35, нет)

a = a + 5 = 28 + 5 = 33

a > 35 (33 > 35, нет)

a = a + 5 = 33 + 5 = 38

a > 35 (38 > 35, да)

a = a * 2 =  38 * 2 = 76 (увеличиваем число a в 2 раза)

проверяем условие является ли число a двузначным, если условие истинно (да), то выполняем левую ветку, а правую ветку (ещё один цикл) не трогаем (если условие ложно (нет), то выполняем правую ветку (ещё один цикл), а левую ветку не трогаем)

9 < a < 100 (9 < 76 < 100, да - двузначное)

a = a - 50 = 76 - 50 = 26 (уменьшаем число a на 50)

получаем ответ (больше ничего не делаем)

Пусть b - количество быков, k - количество коров, t - количество телят.
Тогда можно составить систему уравнений

Два уравнения, три неизвестных. Придется решать перебором вариантов.
Но прямой перебор - это неинтересно. Попробуем оптимизировать.
На 100 рублей можно купить максимум 100/10=10 быков, или 100/5=20 коров, или 100/0.5=200 телят. Без телят не обойтись, даже 18 коров и бык - это 19 голов, а нужно 100. Подбирать нужное количество из 200 хуже, чем из 20 или 10, поэтому сделаем замену, чтобы избавиться от t.
Из второго уравнения следует, что t=100-b-k.    (1)
Подставим значение t в первое уравнение:
10b+5k+0.5(100-b-k)=100;
10b+5k+50-0.5b-0.5k=100;
9.5b+4.5k=50;
19b+9k=100 ⇒ k=(100-19b)/9    (2)
Укрупненный алгоритм:
Перебираем b от 0 до 9 (10 нельзя, истратим все 100 рублей, а телят покупать надо!).
Для каждого b находим k по формуле (2). Если оно целочисленное, находим t по формуле (1). Решение найдено. Иначе перебор продолжается.

var
  b,k,t:integer;
  v:real;
    
begin
  for b:=0 to 9 do
    if (100-19*b) mod 9=0 then begin
      k:=(100-19*b) div 9;
      t:=100-b-k;
      Writeln('Быков ',b,', коров ',k,', телят ',t);
      break
      end;
end.

Решение
Быков 1, коров 9, телят 90