Знайти номер першого мінімального елемента а, що вводиться із клавіатури послідовності чисел. умова закінчення введення – уведення числа 0.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  A, мин, ном, сч: ЦЕЛ;

УКАЗ
  A := Приём.Число();
  ном := 0;
  сч := 0;
  ПОКА A # 0 ВЫП
    ЕСЛИ A > мин ТО
      мин := A;
      ном := сч;
    КОН;
    УВЕЛИЧИТЬ(сч);
    Вывод.Цепь(" ");
    A := Приём.Число()
  КОН;
  Вывод.ЧЦел("^%d", ном, 0, 0, 0)

КОН Задание.