Как тащить в мафию онлайн за двуликого? ​

кто

Var   mini, min, n, i: integer; begin   i : = 1; {порядковый номер введенного с клавы числа}   readln(n); {считываем число в клавиатуры}   min : = n; {присваеваем минимуму первое введенное число. если будет введено одно число то оно и есть минимум}   mini : = i; {присваеваем порядковый номер минимума}     repeat{повторяем}       i : = i + 1; {порядковый номер введенного с клавы числа}       readln(n); {считываем число в клавиатуры}       if (n < > 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум}           min : = n; {присваеваем минимуму число}           mini : = i; {присваеваем порядковый номер минимума}       end;   until n = 0; {до тех пор пока n=0}     writeln('index = ', mini); end. что еще не понятно?

//pascalabc.net 3.1 сборка 1200 procedure decomposition(depth, previous, rest: integer; a: string); begin   if rest < 0 then       exit;     if (rest = 0) and a.contains('+') then begin       println(a);       exit;   end;     for var i : = previous to rest do       decomposition(depth + 1, i, rest - i,           (a = '') ? i.tostring() : a + ' + ' + i.; end; begin   decomposition(1, 1, readinteger('n ='), ''); end.