20 второй номер, нужна формула для вычисления

1) Системный блок
2) один из самых важных, особенно для тех, кто всерьёз решил освоить профессию программиста. Мы изучаем понятие подпрограмм и функций в программировании. В Scratch нет этих понятий, но есть возможность создавать Другие блоки. Это и есть прямой аналог подпрограмм. Подумай, что по-твоему, значит термин подпрограмма. Внимательно слушай объяснения учителя. И ты убедишься, что это совсем не сложно, а даже наоборот — удобно. С других блоков (подпрограмм) мы научимся делать код короче и понятнее, то есть оптимальнее. Вперёд! Успехов!

Программа проверена - работает на Паскаль АВС. Блок-схема - во вложении

Program krisinaaa72;
uses crt;
const n=9;
var
  e:array[1..n] of integer;
  min, nom,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  randomize;
  for i:=1 to n do
    e[i]:=random(100)-50;
  min:=e[i];
  nom:=1;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if (e[i]<min) and (e[i]>0) then
        begin
          min:=e[i];
          nom:=i;
        end;
      write (e[i]:5);
    end;
  writeln();
  writeln('Наименьший положительный элемент массива:  ',min);
  writeln('Его номер:  ',nom);
end.