Сколько строк напечатает программа: var k,l:integer;
begin FOR k:=8 DOWNTO 1 DO
FOR l:=10 TO 14 DO
writeln('Мне нравится Паскаль.');
end.

40 строк

Объяснение:

var

 k, l: integer;  // Целочисленные переменные k и l

begin  // Начало программы

 for k := 8 DOWNTO 1 DO  // Идём с 8 до 1 (8 итераций)

   for l := 10 TO 14 DO  // Идём с 10 до 14 (5 итераций)

5 × 8 = 40

     writeln('Мне нравится Паскаль.');  // Выводим сообщение с новой строки

end. // Конец программы