定义部分：
var
    a:array[0..100000] of integer;
    n,ans,i:longint;
    flag:boolean;
    ch:char;