type ref = ^integer;var p, q: ref;Пусть p^=5 и q=p.Что будет

Type ref = ^integer;
var p, q: ref;
Пусть p^=5 и q=p.
Что будет выдано на печать в итоге выполнения последующих операторов?
q^:=p^+1;
if plt;gt;q then p:=nil else q^:=10;
if q^=10 then begin p:=q; q^:=20; end;
writeln(p^);