Даю 45 баллов!!!!!!!Дано целое число N и набор из N целых

Program n_1;

var i, Nu, n, m, l:integer;

begin

   read(Nu, n);

   l:=0;

   m:=n;

   for i:=1 to Nu-1 do begin

       read(n);

       if nlt;m then begin m:=n; l:=i; end;

   end;

   writeln(l);

end.

var

 N, i, numMin: byte;

 a, m: integer;

begin

 write('N = ');

 readln(N);

 numMin := 0; lt;-- не введено ещё ни 1-го числа, i=0

 m := MaxInt; lt;-- изначальное значение минимума

 writeln('Введите ', N, ' целых чисел:');

 for i := 1 to N do

 begin

   read(a);

   if (numMin = 0) or (a lt; m) then

   begin

     m := a;

     numMin := i

   end

 end;

 writeln('Количество частей ',

   'перед первым наименьшим: ', numMin - 1);

 readln

end.

Вроде так