Что такое человеческие ресурсы в информатике?​

program raf105;

var

 s,s2: string;

 i,j,n,price,points: integer;

begin

write('Количество задач в карусели: ');

readln(n);

write('ответы команды: ');

readln(s);

for i:=1 to length(s) do

 if s[i]<>' '

   then s2:= s2 + s[i];

price:= 3;

for i:=1 to length(s2) do

begin

 if s2[i]='1'

   then begin

     points:= points + price;

     price:= price + 1;

   end

   else for j:=1 to 3 do

     if price > 3

       then price:= price-1;

end;

writeln('Итоговый : ',points);

end.

var n, i, x, min: integer;

begin

 n:=12; //задаем количество чисел.

 min:=16;//присваиваем минимум по правилу:"Минимуму присваиваем самое большое число".

 Randomize;

for i:=0 to n-1 do //цикл для рандома 12 чисел. Можно написать " for i:=1 to n do"

    begin

     x:=Random(31)-15;  //присваиваем перемененной "x" рандомное значение из диапазона [-15;15].

     Writeln(x); //выводим значение "x".

      if (min > x) and (x mod 2 <> 0) then  //если минимум больше полученного "x" и "x" - нечетный, то

        min:=x;  //минимуму присваиваем значение "x".

   end;

Writeln('Наименьшее нечетное число последовательности: ',min); //выводим ответ.

end.