Решить подробно первые 3 примера

Var   i: integer;       //   рабочая переменная для for   k: integer;       //   количество минимальных элементов   n: integer;       //   размер массива  m : array [1..10] of integer; // собственно сам массив   из "n" элементов   i_min : integer;   // индекс минимального элемента в массиве begin   n: =10;   k : = 0;   i_min : = 1;   for i : = 1 to n   do   begin     m[i] : = random(10);   // 10 - число от     if (m[i]< m[i_min]) then     begin       k : = 1;       i_min : = i     end     else       if (m[i]=m[i_min]) then         inc(k);   end;   // в переменной "k" - находится количество минимальных элементов end;

Ответ: "о" программирование п о р м и о а и иаоимроп и о м о омои о о оо о function strevers(st : string) : string; begin   if length(st)> 1 then strevers: =st[length(st)]+strevers(copy(st,2,length(st)-2))+st[1]     else strevers: =st; end; function del2(st : string) : string; begin   if length(st)> 0 then del2: =st[1]+del2(copy(st,3,length(st)-2)) else del2: =''; end; var   s : string; begin   s: ='программирование';   while length(s)> 1 do s: =strevers(del2(s));   writeln(s); end.