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

1) x=3, 4, 5, 6, 7, 8 - 6 раз (8-3+1 = 6)
2) 1 раз
3) 0 раз (в цикле с "to" конечное значение параметра должно быть gt;= начального значения, а здесь 3lt;5)
4) x = 7, 6, 5, 4 - 4 раза
5) 1 раз
6) 0 раз (в цикле с "downto" конечное значение параметра должно быть lt;= начального значения, а здесь 3lt;5)