Сколько раз выполнится тело цикла?
For x:=2 to 7do write (' * ');
For x:=3 to 3do write (' * ');
For x:=5 to 2do write (' * ');
For x:=5downto 5do write (' * ');
For x:=10 downto 4do write (' * ');
For x:=1 downto 4do write (' * ');

• for i := a to b do ... выполняется для i = a, a+1, ..., b – всего b - a + 1 раз (если b < a, то ни разу)
• for i := b downto a do ... выполняется для i = b, b-1, ..., a – всего b - a + 1 раз (если b < a, то ни разу)

Применяем:

• 7 - 2 + 1 = 6 раз
• 3 - 3 + 1 = 1 раз
• 0 раз
• 5 - 5 + 1 = 1 раз
• 10 - 4 + 1 = 7 раз
• 0 раз