Помогите переделать программу с C++ на паскаль)

#include
#include

int main() {
const int n=10;
double x=11.1,i,a,amin=0.5,res;
for (int k=1; k<=n; k++) {
double f=exp(cos(pow(x,2*k)))*sin(pow(x,3*k));
a=modf(f,&i);
if(fabs(a) amin=fabs(a); res=f;
}
}
printf ("\nResult=%lf (%lf in fractional part)",res,amin);
fflush (stdin);
getchar();
return 0;
}