Вот ответ :K:=16 ( на языке Паскаль " к присвоить 16")
По скольку в программе нет бегина после while (m<5) do, выполнится 5 раз м:=м+1, получится м=5, к=к+м, где к=1, м=5, а значит к=6, Нам выведется число 6.