Поисковый сервер по результатам представленных запросов нашел указанное число страниц собака | кошка 20000
собака 9000
кошка 13000
Сколько страниц сервер найдет по запросу собака & кошка ?
ответ укажите в тысячах

Если это программа в Кумире, то в таком виде она не заработает.

Нужно исправить ошибки- вместо "куда" должно стоять "кц" (конец цикла),  а первые три строчки должны начинаться с малых букв (иначе система не воспримет их как ключевые слова).

А вообще, здесь задан один цикл для переменной k (от трёх до пятнадцати, то есть 13 разных значений).

Значит, этот цикл будет выполнен 13 раз.

И каждый раз к начальному значению s (ноль), будет прибавляться десять.

В итоге получим  0 + 13 * 10 = 0 + 130 = 130

Более никакие действия с переменными не делаются, сразу печатается на экран значение s, то есть 130

//PascalABC.NET v3.3 1633

var arr: array [1..6, 1..6] of integer;

begin

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     arr[i, j]:=random(-49, 50);

 writeln('Исходный массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

 var num:=0;

 for var i:=1 to 6 do

   if arr[i, 2] < 0 then num += 1;

 writeln('Количество отрицательных элементов второго столбца: '+num);

 for var i:=1 to 6 do

   for var j:=1 to 6 do

     if arr[i, j] > 0 then arr[i, j]:=-49;

 writeln('Новый массив: ');

 for var i:=1 to 6 do

     arr[i].PrintLn(', ');

end.