Помогите перевести на язык pascal abc

Question

//
// main.cpp
// Problem19
//
// Created by ???N…?°???» ?s?°N????°N€N?N??? on 26.03.13.
// Copyright (c) 2013 ???N…?°???» ?s?°N????°N€N?N???.All rights reserved.
//

#include
#include
using namespace std;

const int md = 1000000007;
int dp[3][1000013];

int main()
{
memset(dp,0,sizeof(dp));
int N;
int strips[3];
cin>>N>>strips[0]>>strips[1]>>strips[2];
dp[0][strips[0]]=1;
dp[1][strips[1]]=1;
dp[2][strips[2]]=1;
for(int i=1; i<=N; i++){
for(int j=0; j<3; j++){
if(i-strips[j]>0){
dp[j][i] += (dp[(j+1)%3][i-strips[j]]+dp[(j+2)%3][i-strips[j]])%md;
dp[j][i] %= md;
}
}
}
int ans = 0;
for(int i=0; i<3; i++){
ans += dp[i][N];
ans %= md;
}
cout< return 0;
}

Таис Московская · Accepted Answer

Нет проблем.. . 
 
const md=1000000007; 
var dp:array[0..2,0..1000012]of integer; 
strips:array[0..2]of integer; N,i,j,ans:integer; 
begin 
readln(N,strips[0],strips[1],strips[2]); 
dp[0,strips[0]]:=1; 
dp[1,strips[1]]:=1; 
dp[2,strips[2]]:=1; 
for i:=1 to N do for j:=0 to 2 do 
if i-strips[ j]>0 then 
begin 
dp[ j,i]:=dp[ j,i]+(dp[(j+1)mod 3,i-strips[j]]+dp[(j+2)mod 3,i-strips[ j]])mod md; 
dp[ j,i]:=dp[ j,i] mod md; 
end; 
ans:=0; 
for i:=0 to 2 do begin ans:=ans+dp[ i,N]; 
ans:=ans mod md; 
end; 
writeln(ans); 
end.