Подготовить алгоритм решения задачи и составить блок-схему.

Найти номер первого минимального элемента во вводимой с клавиатуры последовательности чисел. Условие окончания ввода – ввод числа 0.

Const      M = 65536; Var      A : array [1..M] of integer;    i, min, n, k : integer;   Begin   Write('Введите элемент массива ');   Readln(A[1]);     if A[1] = 0 then Writeln('В массиве нет чисел')       else begin         min := A[1];         n := 1;     {номер минимального числа в массиве}         k := 1;     {номер числа в массиве}                 for i := 2 to M do           begin               Write('Введите элемент массива ');               Readln(A[i]);                     if A[i] = 0 then break                     else                       k := k+1;                       if min > A[i] then begin                         min := A[i];                         n := k;                       end;           end;           Writeln('Минимальное число ', min, ' под номером ', n );         end;     Writeln();   end.