Х:=7 while x=7do begin writeln(x); x:=x-1 end Пожалуйста

После выполнения этого фрагмента программы значение x будет равно 6. условие x=7 при x=7 будет иметь значение true (истина), значит будет выполняться тело цикла. В цикле: 1. writeln(x) - вывод на экран значения x (то есть на экране будет 7); 2. значение x уменьшается на 1 x=x-1=6 Вновь проверяется условие x=7 при x=6 будет иметь значение false (ложь) Цикл на этом заканчивается