Составим таблицу, в которой посчитаем число путей, ведущих в данную ячейку и не содержащих ни одной жилы.
Число путей равно сумме числа путей, ведущих в соседнюю ячейку сверху, и числа путей, ведущих в соседнюю ячейку слева, так как только из них можно попасть в текущую ячейку. В ячейки с золотом поставим нули.
Проделав вычисления, получаем ответ 106.
<span>program
HelloWorld;</span>
var x,i
:integer;
begin
x := 0; // количество желаний
i := 0; // года совместной жизни
while(x < 33) do
<span> begin</span>
<span> i := i+1;</span>
<span> if i mod 3 = 0 then </span>
<span> begin</span>
<span> x:= x + 2*3</span>
<span> end</span>
<span> else </span>
<span> begin</span>
<span> x:= x + 3</span>
<span> end;</span>
<span> write('Год: ');</span>
<span> write(i);</span>
<span> write</span>(' кол-во желаний: ');
write(x);
<span> writeln('');</span>
<span> end;</span>
end.
Ответ: 9 лет
Begin
var a:=ArrRandom(30, -100, 100);
var k:=a.Where(t->t<0);
a.Print;
println();
println('Cумма: ', k.Sum);
end.