Программа

Program Pilshikov_5_9 (input,output);
{ Дана непустая последовательность
  натуральных чисел,
  за которой следует ноль.
  Определить порядковый номер
  наименьшего из них. }
Var
  n,k,min,x:integer;   { n - порядковый номер наименьшего из введенных чисел
                         k - текущий порядковый номер
                       min - минимальное из введенных чисел
                         x - текущее число }
BEGIN
  n:=1;
  k:=1;
  write('Введите число ');
  readln(x);              { Ввод первого числа }
  min:=x;
  while x<>0 do
    Begin
      k:=k+1;
      write('Введите число ');
      readln(x);   { Ввод нового числа }
      if (x<>0)and(x<min) then       { Если введенное число неравно 0 }
                          begin      { и меньше минимального, то: }
                            min:=x;  { перезапись нового минимума, }
                            n:=k     { перезапись номера }
                          end
    End;
  writeln('Номер минимального ',n)
END.