type
	TMutato = ^integer;
var
	a : TMutato;
begin
	New(a) ;
	a^ := 3;
	WriteLn(a^);
	Dispose(a);
end.