Сколько раз выполнится тело цикла?
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" конечное значение параметра должно быть >= начального значения, а здесь 3<5)4) x = 7, 6, 5, 4 - 4 раза5) 1 раз6) 0 раз (в цикле с "downto" конечное значение параметра должно быть <= начального значения, а здесь 3<5)