Просто подставляем вместо k значение от 1 до 10If Dat[1]*m<0 then ....5*1 не меньше нуля, идем дальшеIf Dat [2]*m<0 then .....4*1 не меньше нуля, идем дальшеIf Dat[3]*m<0 then ....-3*1<0 поэтому теперь m присваивается значение Dat[k], а это есть -3If Dat [4]*m<0 then ....2*(-3)<0 поэтому m:= 2If Dat [5]*m <0 then ....1*2<0 1 не меньше нуля, продолжаем.If Dat [6]*m <0 then...-10*2<0 меньше нуля, m присваиваем значечние -10If Dat [7]*m <0 then ...9*(-10)<0 m присваиваем 9If Dat [8]*m <0 then ....8*9<0 не меньше нуля, продолжаемIf Dat[9]*m<0 then...-7*9<0 поэтому m:= -7If Dat[10]*m<0 then ....6*(-7)<0 поэтому m присваивается значение 6Ответ: m=6