program tb0465;

{$mode delphi}

var x:pointer;

begin
  x:=0;
  x:=pointer(0);
end.