program example (input,output);
var i : integer ;
var a : array [1..5] of integer ;

procedure test ( a : array [1..5] of integer ; i : integer ) ;
begin
  write(a[a[i]])
end;

begin
  i:=1;
  while (i<=5) do
    begin
      a[i]:=i+1;
      i:=i+1
    end;
  test(a,a[a[1]])
end.