Если это программа в Кумире, то в таком виде она не заработает.
Нужно исправить ошибки- вместо "куда" должно стоять "кц" (конец цикла), а первые три строчки должны начинаться с малых букв (иначе система не воспримет их как ключевые слова).
А вообще, здесь задан один цикл для переменной k (от трёх до пятнадцати, то есть 13 разных значений).
Значит, этот цикл будет выполнен 13 раз.
И каждый раз к начальному значению s (ноль), будет прибавляться десять.
В итоге получим 0 + 13 * 10 = 0 + 130 = 130
Более никакие действия с переменными не делаются, сразу печатается на экран значение s, то есть 130
begin
p:=1;
repeat
readln(a);
if (a>=-10) and (a<=10) then
p:=p*a;
until (a>10) or (a<-10);
write(p)
end.