program varptr;

type	Pbyte=^byte;

procedure hallo(var p:Pbyte);

begin
end;

begin
end.