Перевести код С++ на паскаль

[MagAragorn]

/*
ID: lmy0525
PROG: nocows
LANG: C++
*/
#include <iostream>
#include <fstream>
#include <string>
#include <algorithm>
#include <cmath>
#include <vector>
 
using namespace std;
 
ofstream fout;
ifstream fin;
 
int dp[201][101];
int small[201][101];
 
int main() {
    fout.open("nocows.out");
    fin.open("nocows.in");
    int N, K;
    fin >> N >> K;
 
    for (int i = 1; i <= K; i++) small[1][i] = 1;
    for (int k = 2; k <= K; k++)
    {
        for (int n = 3; n <= N; n++)
        {
            for (int i = 1; i <= n-2; i += 2)
            {
                small[n][k] += small[i][k-1]*small[n-1-i][k-1];
                small[n][k] %= 9901;
            }
        }
    }
 
    dp[1][1] = 1;
    for (int k = 2; k <= K; k++)
    {
        for (int n = 3; n <= N; n += 2)
        {
            for (int i = 1; i <= n-2; i += 2)
            {
                dp[n][k] += small[i][k-1]*dp[n-1-i][k-1]
                    + dp[i][k-1]*small[n-1-i][k-1]
                    - dp[i][k-1]*dp[n-1-i][k-1];
                dp[n][k] %= 9901;
            }
 
        }
    }
    fout << dp[N][K] << endl;
    return 0;
}

Помогите пожалуйста. очень нужно. Могу оригинал задачи скинуть.

[Poma][a]

Могу оригинал задачи скинуть.

Уж будьте так великодушны..