var
	a : ^Integer;
begin
	New(a) ;
	a^ := 3;
	WriteLn(a^);
	Dispose(a);
end.