varn:integer;procedure trick(a:integer; var b:integer);begina:=a+1;b:=b+1;n:=n+b; end;beginn:=5;trick(n,n);writeln(n);end.
Standard input is empty
12
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!