program FindMinimum;
 
// Объявление переменных
var
  numbers: array[1..100] of integer; // Массив для хранения чисел (максимум 100 элементов)
  n: integer; // Количество чисел в списке
  i: integer; // Переменная для цикла
  min: integer; // Переменная для хранения минимального значения
 
begin
  // Запрашиваем количество чисел у пользователя
  write('Введите количество чисел (не больше 100): ');
  readln(n);
 
  // Проверяем, что количество чисел не превышает лимит
  if (n > 0) and (n <= 100) then
  begin
    // Заполняем массив числами, введенными пользователем
    writeln('Введите числа:');
    for i := 1 to n do
    begin
      readln(numbers[i]);
    end;
 
    // Предполагаем, что первый элемент массива - минимальный
    min := numbers[1];
 
    // Проходим по массиву и ищем минимальное значение
    for i := 2 to n do
    begin
      if numbers[i] < min then
      begin
        min := numbers[i]; // Если нашли число меньше текущего минимального, обновляем min
      end;
    end;
 
    // Выводим результат
    writeln('Минимальное значение: ', min);
  end
  else
  begin
    writeln('Некорректное количество чисел.');
  end;
 
  readln; // Задерживаем окно консоли, чтобы увидеть результат
end.

cHJvZ3JhbSBGaW5kTWluaW11bTsKCi8vINCe0LHRitGP0LLQu9C10L3QuNC1INC/0LXRgNC10LzQtdC90L3Ri9GFCnZhcgogIG51bWJlcnM6IGFycmF5WzEuLjEwMF0gb2YgaW50ZWdlcjsgLy8g0JzQsNGB0YHQuNCyINC00LvRjyDRhdGA0LDQvdC10L3QuNGPINGH0LjRgdC10LsgKNC80LDQutGB0LjQvNGD0LwgMTAwINGN0LvQtdC80LXQvdGC0L7QsikKICBuOiBpbnRlZ2VyOyAvLyDQmtC+0LvQuNGH0LXRgdGC0LLQviDRh9C40YHQtdC7INCyINGB0L/QuNGB0LrQtQogIGk6IGludGVnZXI7IC8vINCf0LXRgNC10LzQtdC90L3QsNGPINC00LvRjyDRhtC40LrQu9CwCiAgbWluOiBpbnRlZ2VyOyAvLyDQn9C10YDQtdC80LXQvdC90LDRjyDQtNC70Y8g0YXRgNCw0L3QtdC90LjRjyDQvNC40L3QuNC80LDQu9GM0L3QvtCz0L4g0LfQvdCw0YfQtdC90LjRjwoKYmVnaW4KICAvLyDQl9Cw0L/RgNCw0YjQuNCy0LDQtdC8INC60L7Qu9C40YfQtdGB0YLQstC+INGH0LjRgdC10Lsg0YMg0L/QvtC70YzQt9C+0LLQsNGC0LXQu9GPCiAgd3JpdGUoJ9CS0LLQtdC00LjRgtC1INC60L7Qu9C40YfQtdGB0YLQstC+INGH0LjRgdC10LsgKNC90LUg0LHQvtC70YzRiNC1IDEwMCk6ICcpOwogIHJlYWRsbihuKTsKCiAgLy8g0J/RgNC+0LLQtdGA0Y/QtdC8LCDRh9GC0L4g0LrQvtC70LjRh9C10YHRgtCy0L4g0YfQuNGB0LXQuyDQvdC1INC/0YDQtdCy0YvRiNCw0LXRgiDQu9C40LzQuNGCCiAgaWYgKG4gPiAwKSBhbmQgKG4gPD0gMTAwKSB0aGVuCiAgYmVnaW4KICAgIC8vINCX0LDQv9C+0LvQvdGP0LXQvCDQvNCw0YHRgdC40LIg0YfQuNGB0LvQsNC80LgsINCy0LLQtdC00LXQvdC90YvQvNC4INC/0L7Qu9GM0LfQvtCy0LDRgtC10LvQtdC8CiAgICB3cml0ZWxuKCfQktCy0LXQtNC40YLQtSDRh9C40YHQu9CwOicpOwogICAgZm9yIGkgOj0gMSB0byBuIGRvCiAgICBiZWdpbgogICAgICByZWFkbG4obnVtYmVyc1tpXSk7CiAgICBlbmQ7CgogICAgLy8g0J/RgNC10LTQv9C+0LvQsNCz0LDQtdC8LCDRh9GC0L4g0L/QtdGA0LLRi9C5INGN0LvQtdC80LXQvdGCINC80LDRgdGB0LjQstCwIC0g0LzQuNC90LjQvNCw0LvRjNC90YvQuQogICAgbWluIDo9IG51bWJlcnNbMV07CgogICAgLy8g0J/RgNC+0YXQvtC00LjQvCDQv9C+INC80LDRgdGB0LjQstGDINC4INC40YnQtdC8INC80LjQvdC40LzQsNC70YzQvdC+0LUg0LfQvdCw0YfQtdC90LjQtQogICAgZm9yIGkgOj0gMiB0byBuIGRvCiAgICBiZWdpbgogICAgICBpZiBudW1iZXJzW2ldIDwgbWluIHRoZW4KICAgICAgYmVnaW4KICAgICAgICBtaW4gOj0gbnVtYmVyc1tpXTsgLy8g0JXRgdC70Lgg0L3QsNGI0LvQuCDRh9C40YHQu9C+INC80LXQvdGM0YjQtSDRgtC10LrRg9GJ0LXQs9C+INC80LjQvdC40LzQsNC70YzQvdC+0LPQviwg0L7QsdC90L7QstC70Y/QtdC8IG1pbgogICAgICBlbmQ7CiAgICBlbmQ7CgogICAgLy8g0JLRi9Cy0L7QtNC40Lwg0YDQtdC30YPQu9GM0YLQsNGCCiAgICB3cml0ZWxuKCfQnNC40L3QuNC80LDQu9GM0L3QvtC1INC30L3QsNGH0LXQvdC40LU6ICcsIG1pbik7CiAgZW5kCiAgZWxzZQogIGJlZ2luCiAgICB3cml0ZWxuKCfQndC10LrQvtGA0YDQtdC60YLQvdC+0LUg0LrQvtC70LjRh9C10YHRgtCy0L4g0YfQuNGB0LXQuy4nKTsKICBlbmQ7CgogIHJlYWRsbjsgLy8g0JfQsNC00LXRgNC20LjQstCw0LXQvCDQvtC60L3QviDQutC+0L3RgdC+0LvQuCwg0YfRgtC+0LHRiyDRg9Cy0LjQtNC10YLRjCDRgNC10LfRg9C70YzRgtCw0YIKZW5kLg==