3. Сколько раз выполнится тело цикла во время выполнения фрагмента программы for i:=140 to 140 do S:=S+1;

Так как начальное значение параметра цикла (140) равно конечному значению (140), то тело цикла выполнится один раз.