uses crt;
var n,i,max,min,sc,sl,x,k,nn: integer;
    a: array[1..100] of integer;
begin
clrscr;
    write('Nhap do dai: '); readln(n);
    write('Nhap mang: '); for i:=1 to n do begin
        read(a[i]);
        if a[i] mod 2=0 then sc:=sc+a[i] else sl:=sl+a[i];
    end;
    max:=a[1]; min:=a[1];
    for i:=2 to n do begin
        if max<a[i] then max:=a[i];
        if main>a[i] then min:=a[i];
    end;
    writeln('GTLN = ',max,' | GTNN = ',min);
    writeln('Tong chan: ',sc,' | Tong le: ',sl);
    write('Mang nguoc lai: ');
    for i:=n downto 1 do write(a[i],' ');
    writeln;
    write('Nhap 1 so: '); readln(x);
    write('Nhap vi tri: '); readln(k);
    for i:=k+1 to n+1 do a[i]:=a[i+1];
    a[k]:=x;
    write('Nhap so NN: '); readln(nn);
    for i:=1 to n+1 do if nn=a[i] then k:=1;
    if k=1 then begin
        write('Vi tri cua so ',nn,' la: ');
        for i:=1 to n+1 do if nn=a[i] then write(i,' ');
    end else write('Khong co so ',nn,' trong day');
    readln
end.