Дана непустая последовательность различных натуральных чисел , за которой следует 0. Определить порядковый номер наименьшего из них.

Pascal  var    min,imin,a,i : integer;     begin   read (a);   i :=1;   min := a;   imin := i;   while a <> 0 do    begin    if a < min then      begin      min := a;     imin := i;    end;    i := i +1;   read (a);       end;     writeln ('min = ',min,' num = ',imin);   end.