program A(output);
  
  const
    ARRAY_LEN = 100;

  procedure writearray(var A: array of integer);
    var i : integer;
  begin