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