procedure CheckOutputSeq(a: sequence of integer);
begin
end;

procedure CheckOutputSeq(a: sequence of object);
begin
end;

begin
  CheckOutputSeq(Arr(1,2,3));
end.