1: program calltest(input, output);
   2: var i : integer;
   3: 
   4: procedure p(i : integer; r : real);
   5: begin
   6:     writeln('i = ', (i/0):1, ', r = ', r:1:2);
   7: end;
   8: 
   9: procedure q(var i : integer);
  10: begin
  11:     i := 3;
  12: end;
  13: 
  14: begin
  15:     q(i);
  16:     p(1, 3.4);
  17: end.
Last modified: 1984-04-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1285
Valid CSS Valid XHTML 1.0 Strict