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

procedure MyChange(var i: Integer);
begin
	i := 5;
end;

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