fork download
  1. program ideone;
  2. var
  3. iNum: Integer;
  4. pNum: PInt32;
  5.  
  6. procedure MyChange(var i: Integer);
  7. begin
  8. i := 5;
  9. end;
  10.  
  11. begin
  12. iNum:=10;
  13. MyChange(iNum);
  14. writeln(iNum);
  15. end.
Success #stdin #stdout 0s 276KB
stdin
Standard input is empty
stdout
5