Дан массив . определить номер первого и последнего отрицательных элементов . вычислить сумму этих элементов в паскале

const N=20;

var R:array[1..N] of integer;

i,a,b,c,s:integer;

begin

a:=0;

b:=0;

for i:=1 to N do  

 begin

  R[i]:=random(N)-random(N);

  write(R[i]:3,'[',i,']');

 end;

writeln;

for i:=1 to N do

 begin

  if a<1 then

   begin

    if R[i]<0 then  

     begin

     b:=i;

     a:=a+1;

     end;

   end;

  end;

a:=0;

c:=0;

 for i:=N downto 1 do

  begin

   if a<1 then

    begin

     if R[i]<0 then

      begin

      c:=i;

      a:=a+1;

      end;

    end;

   end;

s:=0;

 for i:=1 to N do  

   s:=s+R[i];

writeln('Номер первого отрицательного элемента - ',b);

writeln('Номер последнего отрицательного элемента - ',c);

writeln('Сумма элементов в массиве - ',s);

end.

Предполагаю 55555 - 29 - Ы
мой вариант - немного не логичный с некоторой стороны, но попытаюсь объяснить почему 29:
--
О - 16 - 10000 в двоичной системе, если посмотреть, то именно 5 цифр получается, что возможно нам и подходит.
Д - 5 - 101 возможно, это потому что две 55, и добавляем единицу в конце
Т - 20 - 10100 тут образуются все 5 цифр, и как перед этим (Д - 5), получаем 101
Ч - 26 - 11010 тут просто добавляется 1 в перед
и далее 55555, так как с 5555 получили просто впереди 1, то скорее всего, и тут добавляется 1, и получаем число 11101 = 29

Сумма номеров от 1 до 9 равна 45.
Сумма от 10 до 19 равна 10 + 45 = 55.
Сумма от 20 до 29 равна 2*10 + 45 = 65.
Сумма от 30 до 39 равна 3*10 + 45 = 75.
...
Сумма от 90 до 99 равна 9*10 + 45 = 135.
Сумма всех цифр от 1 до 99 равна
45 + 55 + 65 + ... + 135 = (45 + 135)*10/2 = 180*10/2 = 900
В номерах от 100 до 199 та же сумма цифр 900 + 100*1 = 1000
В номерах от 200 до 209 сумма цифр 2*9 + 45 = 18 + 45 = 63
В номерах от 210 до 212 сумма цифр 2+1+0+2+1+1+2+1+2 = 12
Итого сумма всех цифр 900 + 1000 + 63 + 12 = 1975