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. //    procedure R(var x,y:integer);
  15.  //   begin
  16.   //      y:=x+1;
  17.    // end;
  18.  
  19. begin
  20. c:=2; d:=0; P(sqr(c)+c,d); writeln(d); 
  21. end.
Success #stdin #stdout 0.01s 5260KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
https://ideone.com/YGbN46
language:
Pascal (fpc 3.0.4)
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!