fork download
copy 
  1. var
  2. a,b:integer;
  3. procedure ab(a:integer; var b:integer);
  4. begin
  5. a:=a+1;
  6. b:=b+1;
  7. writeln(a,' ',b);
  8. end;
  9. begin
  10. a:=1; b:=2;
  11. ab(a+2,b);
  12. ab(b,a);
  13. writeln(a,' ',b);
  14. end.
Success #stdin #stdout 0s 4548KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
4 3
4 2
2 3
https://ideone.com/9AjfHD
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!