program ideone;
var
iNum: Integer;
pNum: PInt32;
procedure MyChange(i: PInt32);
begin
i^:= 5;
end;
begin
iNum:=10;
MyChange(@iNum);
writeln(iNum);
end.
cHJvZ3JhbSBpZGVvbmU7CnZhcgppTnVtOiBJbnRlZ2VyOwpwTnVtOiBQSW50MzI7Cgpwcm9jZWR1cmUgTXlDaGFuZ2UoaTogUEludDMyKTsKYmVnaW4KCWleOj0gNTsKZW5kOwoKYmVnaW4KCWlOdW06PTEwOwoJTXlDaGFuZ2UoQGlOdW0pOwoJd3JpdGVsbihpTnVtKTsKZW5kLg==