Определи основание системы счисления числа 373

1) файл паскаля приложен.
2) код на c#
        static void Main(string[] args)        {            int a, b;            a = Convert.ToInt32(Console.ReadLine());            b = Convert.ToInt32(Console.ReadLine());            if (a > 2)            {                Console.WriteLine(a / 2);                Console.WriteLine(b - 1);            }        }
3) Код на vb
dim a as integer = 0
dim b as integer = 0
a = cint(console.readline())
b = cint(console.readline())
if a > 2 then
console.writeline( a / 2)
console.writeline(b - 1)
end if

Можешь сразу читать 3 пункт, если интересна проблема только данного кода.

Объяснение:

1) Во-первых, обычно для максимальных и минимальных значений используют противоположные значения, чтобы их потом с чем-либо сравнивать, то бишь вместо nmin:=n[1] тебе следовало бы написать что-то типа nmin:=1000, а не nmin:=n[1], ибо первый элемент у тебя пуст, то есть у тебя nmin изначально равно 0, что не очень хорошо.

2) Во-вторых, когда ты пробегаешься по массиву, чтобы найти минимальное значение, ты почему-то начинаешь со второго элемента, не обращая внимания на первый, - это не очень хорошо. В данном случае, конечно, это не сыграло никакой роли, но если бы первый элемент был минимальным, то он бы был пропущен и программа бы вывела неправильный ответ.  

3) Но в твоём случае это на правильный ответ никак не влияет - проблема кода в том, что если он найдёт минимальный элемент, то в nmin уйдёт индекс этого элемента, а не сам элемент, то есть надо поменять строчку nmin:=b на nmin:=n[b].