int ro;
vector <int> mas(ro);
void upd(int p, int v){
    mas[p-1] = v;
}

int ask(int p){

    return mas[p-1];
}

void init(int n, vector<int> v){
ro = n;
mas = v;
}

var aa:array of longint;
procedure upd(p, v: longint);
begin
    aa[p-1]:=v;
end;
function ask(p: longint): longint;
begin
   
    ask := aa[p-1];
end;

procedure init(n: longint; var  g: array of longint);
var i:longint;
begin
   setlength(aa, n);
    for i:=0 to high(g) do begin
      aa[i]:=g;
   end;     
end;[/i]