1program x(output); 2var 3 x: ^ integer; 4 y: ^ integer; 5begin 6 new(y); 7 x := y; 8 x^ := 1; 9 x := x; 10end. 11