program procTest (input, output);
 type arrreal5 = array [1..5] of real; 
 var a, b : integer;
     x : array [1..5] of real;

  procedure one (i, j : integer; k : arrreal5);
    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.