Если это программа в Кумире, то в таком виде она не заработает.
Нужно исправить ошибки- вместо "куда" должно стоять "кц" (конец цикла), а первые три строчки должны начинаться с малых букв (иначе система не воспримет их как ключевые слова).
А вообще, здесь задан один цикл для переменной k (от трёх до пятнадцати, то есть 13 разных значений).
Значит, этот цикл будет выполнен 13 раз.
И каждый раз к начальному значению s (ноль), будет прибавляться десять.
В итоге получим 0 + 13 * 10 = 0 + 130 = 130
Более никакие действия с переменными не делаются, сразу печатается на экран значение s, то есть 130
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var d:=MatrRandom(m,n,-99,99);
d.Println(4); Writeln(4*d.ColCount*'-');
var min:=d.ElementsByRow.Min; // значение минимального элемента
Writeln('Искомое среднее: ',d.ElementsByRow.Where(t->t<>min).Average)
end.
Пример
Количество строк и столбцов в массиве: 4 7
*** Исходный массив ***
7 -31 80 21 38 -36 16
42 93 -11 74 -6 37 -71
15 90 -71 -88 -71 70 -27
12 83 41 79 72 91 -88
Искомое среднее: 24.5