For i : = 10 downto (-10) do write ('ok') сколько раз выполнится тело цикла?

Решение довольно простое: For i : = 10 downto (-10) do write ('ok') выполнится 10+10+1, получаем двадцать один раз.

Нам известно, что начало цикла (обозначение i), равняется десяти. Так же нам известно еще одно конечное значение в - 10. Значит чтоб перейти от одного к другому мы должны сделать 10+10 и получить 20. Откуда же взялась еще единица? А взялась она из "downto". Если указано это слово, значит значение уменьшается еще на одну единицу. Вот и получается, что к ответу "20" мы должны прибавить 1 и получить 21 раз.