fork download

copy

program procTest (input, output);
 var a, b : integer;
     x : array [1..5] of real;
  procedure one (i, j : integer; k : array [1..5] of real);
    var n : integer;
    begin
      n := i + j;
      k[n] := 2.345
    end
  begin
    a := 1;
    b := 2;
    one(a,b,x);
    write(x[a+b])
  end.

prog.pas:4: error: syntax error before `1'
prog.pas: In procedure `one':
prog.pas:8: error: undeclared identifier `k' (first use in this routine)
prog.pas:8: error:  (Each undeclared identifier is reported only once
prog.pas:8: error:  for each routine it appears in.)
prog.pas:10: error: syntax error before `begin'

Standard output is empty