program ideone;
var
iNum: Integer;
pNum: PInt32;

procedure MyChange(i: PInt32);
begin
	i^:= 5;
end;

begin
	iNum:=10;
	MyChange(@iNum);
	writeln(iNum);
end.