2.	Ką atspausdins ši programa:
var p, q : ^integer;
begin
   new (p); new (q); q^ := 3; p^ := q^;
   if p = q then p :=  nil else if p^ = q^ then q := p;
   if p = q then q^ := 5;
   writeln (p^)
end.