Верблюд, (-10; -2), (-11; -3), (-10,5; -5), (-11; -7), , (-12; -10), (-11; -13), (-13; -13), (-13,5; -7,5), (-13; -7), (-12,5; -5), (-13; -3), (-14; -1), , (-14; -4), (-15; -6), (-15; -3), (-14; 2), (-11; 4), (-10; 8), (-8; 9), (-6; 8), (-5; 5), (-3; 8), (-1; 9), (0; 8), (0,5; 6), (0,5; 4), (3; 2,5), (4; 3), (5; 4), (6; 6), (8; 7), (9,5; 7), (10; 6), (11,5; 5,5),, (12; 5), (12; 4,5), (11; 5), (12; 4), (11; 4),, (10; 3,5), (10,5; 1,5), (10; 0), (6; -3), (2; -5), , (1; -7), (1,5; -11), (2; -12), (1; -13), (0; -5), , (-0,5; -11), (0; -13), (-1,5; -13), (-1,5; -7), , (-2; -5), (-3; -4), (-5; -4,5), (-7; -4,5), (-9; -5), (-10; -6), (-9; -12), (-8,5; -13), (-10; -13), , (-10,5; -10), (-10,5; -9,5), (-11; -7), Глаз (8,5; 5,5), Кенгуру, (1,5;.0,5), (3; 0), (3,5; 0), (8; 0,5), (7,5; 4,5), (9; 3), (12; 1,5), (18; 1,5), (12,5; 3), (11; 3,5), (9,5; 7), (8; 10), (6; 11), (4; 12,5), (3; 14), , (2; 16), (2,5; 17,5), (2; 18), (1; 16,5), (0,5; 18), (0; 16), (-0,5; 15,5), (-2; 14,5), (-1,5; 14), , (-1; 14,5), (-1; 14), (0; 14), (0,5; 13,5), , (1,5; 10,5), (0,5; 8), (1; 7), (1; 6), (1,5; 6), , (1,5; 7,5), (2,5; 10,5), (2; 7,5), (2,5; 6,5), , (3; 6,5), (2,5; 8), (3; 8,5), (3,5; 6,5), (3; 6), , (4; 4,5), (4; 3), (0; 3), (0,5; 2), (5,5; 2), (5,5; 4), (6,5; 4), (6,5; 1), (1,5; 0,5) глаз (0; 15,5)

Сначала производится инициализация массива, в конце - выводится на печать n.

Содержательная часть программы - эта:

n := ves[1];

For i := 1 to 14 Do

  If Ves[i] < n Then

  Begin

     n : = ves[1]

  End;

Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n  присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.

ответ: 25

Результат вычисления выражения = 423740109641827811050562900104844200100668852555362335044106425757135450952812253767426737895013457912006809625294098248292611514209938015007913557179919770293155333555596197035633998935395121208120494637893971257659333646118532107852701607864582200255360216726700210404696762216394098921497152549098417073702716852714129854684649302639544562974670031379495955346612522185492817717530584024149882054720677516078176788441015432729843225826888486017281439596900206900818989073071527362377507665970619401943861722940026514221004665412793298732682092367060658321734595464802019304716616839706472260921742711531271537606617790207675417456183389307259055554259924068038553907640180469027750654984054755722020736349589549796913963586595533139088956385848761843357419721684013157828642861876449663702875888260750657324486803349824087249766025980820997683310993670947866620503422659433245617214788510445974130221254291065901661091831436071774263923748130185439277243398974964876886761984935412516538926600985155678380087531098202339757185656356430968998234505733211723587468537340539263058656611971102173449063883289528591291676661888639980723243641326111250391003240293764171579482582274416636354354162162098123635574311019434200546520524011352320649122298898907495114879213257399856709766694726886682646850078291975249689311769977285283394392815620056008651297982713066247793010156375170116416866581848518648366611015572910715900410975077306357333058769210859590782528490056457433899693091177620656294808392825856
В 4-ричной системе = 30000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000033333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333300000
Кол-во цифр 3 = 496

код на руби
def countNumberInExpression(expression, p_base, c_number)
    puts "Результат вычисления выражения = #{expression}"
    puts "В #{p_base}-ричной системе = #{r = expression.to_s(p_base)}" 
   count = r.scan(/#{c_number}/u).size
    puts "Кол-во цифр #{c_number} = #{count = r.scan(/#{c_number}/u).size}"
    return count
end