[ Код ] процедура

var x := 1.
 {
 	(x = 1) истина: { Stdout написать: ['x']. }, разрыв.
 	Stdout написать: ['y'].
 } процедура.

 {
 	(x = 1) истина: { Stdout написать: ['x']. }, разрыв.
 	Stdout написать: ['y'].
 } × 1.