fork download
copy 
  1. program ideone;
  2. var  c,d:integer;
  3.  
  4.     procedure P(x,y:integer);
  5.     begin
  6.         y:=x+1;
  7.     end;
  8.  
  9.     procedure Q(x:integer; var y:integer);
  10.     begin
  11.         y:=x+1;
  12.     end;
  13.  
  14. begin
  15. c:=2; 
  16. d:=0; 
  17. P(sqr(c)+c,d); 
  18. writeln(d);
  19. end.
Success #stdin #stdout 0s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
https://ideone.com/742qal
language:
Pascal (gpc 20070904)
created:
1 day 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!