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

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

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