[ Задача ] процедура

var x := 1.
 {
 	(x = 1) вярно: { Stdout напишете: ['x']. }, почивка.
 	Stdout напишете: ['y'].
 } процедура.

 {
 	(x = 1) вярно: { Stdout напишете: ['x']. }, почивка.
 	Stdout напишете: ['y'].
 } × 1.