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

блок схемой можно как то записать??

На бумаге это несколько проще сделать, чем на компьютере.

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