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

uses crt; var a,mn,n,imn:integer; begin clrscr; writeln('Введите натуральные числа, окончание ввода 0:'); repeat readln(mn); until mn>0; n:=1; imn:=1; repeat  repeat   readln(a);  until a>=0;  n:=n+1;  if(a<>0)and(a