Определить, какое количество всевозможных лестниц можно построить из n блоков (С++ -> Pascal)

#include <iostream>
#include <time.h>
#include <cmath>
using namespace std;
 
///algo lesenka
 
int pr(int x)
{
    int k=1;
    int s=0;
    while (k<x)
    {
        k=k*2;
        s++;
    }   
    return s;   
}
 
int a[10000];
int main()
{       
    int n;  
    
    freopen("input.txt","rt",stdin); 
    freopen("output.txt","wt",stdout);
    cin >>n;    
    clock_t start = clock();  //timer start 
    int k=pr(n);
    int i;
    int count=0;
    while (true)
    {
        i=0;
        a[i]=a[i]+1;
        while (a[i]>n)
        {
            a[i]=0;
            i=i+1;
            a[i]=a[i]+1;
        }       
        if (i>k) break;
        int s=0;int q=0;int f=0;
        for (int j=k;j>=0;j--)
        {
            if (f==0 && a[j]==0) continue;else f=1;
            s=s+a[j];
            if (a[j]<=a[j+1]) q=1;
            
        }       
        if (s==n && q==0)  count++;         
        
    }
    clock_t finish = clock();   //timer end;
    double duration = (float)(finish - start) / CLOCKS_PER_SEC; //время окончания выполнения программы  в сек. (start-end)
    cout <<"Время выполнения метода :"<<duration<<" sek"<<endl;
    cout <<"ans: "<<count<<endl;
    return 0;
}