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

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

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

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

КОН Задание.