Найти самую длинную подпоследовательность, которая является арифметической или геометрической прогрессией

#include <iostream>
using namespace std;
 
int main()
{
        int a[]={1,2,4,8,16,32,64,127,1,2,3,4,5,7,9,11,13,15,17,19,20,6};
        int N=21, len_arifm[100],len_geom[100],ans_arifm=1,ans_geom=1,i;
        len_arifm[1]=2;
        len_geom[1]=2;
        for (i=2; i<N; ++i)
        {
                if(a[i]-a[i-1]==a[i-1]-a[i-2])
                        len_arifm[i]=len_arifm[i-1]+1;
                else len_arifm[i]=2;
                if(a[i-1]*a[i-1]==a[i]*a[i-2])
                        len_geom[i]=len_geom[i-1]+1;
                else len_geom[i]=2;
                if(len_arifm[i]>len_arifm[ans_arifm])
                        ans_arifm=i;
                if(len_geom[i]>len_geom[ans_geom])
                        ans_geom=i;
        }
        cout<<"Naibolshaya arifmeticheskaya progressiya: ";
        for (i=ans_arifm-len_arifm[ans_arifm]+1; i<=ans_arifm;++i)
                cout<<a[i]<<' ';
        cout<<"Dlinna: "<<len_arifm[ans_arifm]<<endl;
        cout<<"Naibolshaya geometriceskaya progressiya: ";
        for (i=ans_geom-len_geom[ans_geom]+1; i<=ans_geom;++i)
                cout<<a[i]<<' ';
        cout<<"Dlinna: "<<len_geom[ans_geom]<<endl;
        if (len_arifm[ans_arifm]>=len_geom[ans_geom])
               cout<<"Resheniem zadachi yavlyaetsya ukazannaya arifmeticheskaya progressiya"<<endl;
        else cout<<"Resheniem zadachi yavlyaetsya ukazannaya geometricheskaya progressiya"<<endl;
        system("PAUSE");
        return 0;
}