Ответ:

Всего программа напечатает 40 строк.

Краткое объяснение:

Всего у цикла k будет 8 повторений, а у цикла l будет 5 повторений. И при выполнение тела цикла k происходит 8 повторений выполнения другого цикла l, где 5 повторений. То есть мы можем просто их перемножить и тогда узнаем сколько всего раз будет выполнена команда writeln и, соотвественно, сколько будет напечатано строк:

8 * 5 = 40 – всего повторений.

И получается, что всего будет напечатано 40 строк, так как команда будет совершена 40 раз, а каждый раз сообщение будет выведено на новой (следующей) строке из-за особенности команды writeln.

Более подробное объяснение:

Цикл For (или цикл с заданным числом повторений, если хотите) в Pascal – это цикл, где некая переменная (в данном случае k и l) изменяет своё значение от начального значения до конечного, и для каждого значения этой переменной тело цикла выполняется один раз. То есть, например, цикл

for i:=1 to i:=3 do

writeln(‘Мне нравится Паскаль.’);

выполнится три раза, так как i будет иметь всего три значения (1, 2 и 3).

Почти такой же принцип работы и у цикла с downto (вместо простого to), разве что только переменная изменяет своё значение не по восходящей, а по нисходящей.

Также команда writeln, которая используется для вывода сообщения на экран, имеет ту особенность, что после вывода сообщения переводит “курсор” на следующую строку, в отличие от команды write.

И возвращаясь к краткому объяснению:

Всего будет напечатано 40 строк.