Нужна помощь, Помогите перевести программы из Паскаля в Си.

/*Програм ехр1*/
#include "<"iostream">"
using namespace std;

#include "<"math.h">"

float xn, xk, x, y, h, a, b;

int main()
{
/**/cout << "Vvedite cherez probel xn, xk, h";
/**/cin >> xn >> xk >> h;
/**/cout << "Vvedite a,b";
/**/cin >> a, b;
/**/x = xn;
/**/do{
/* */if(x>0 && x<16.2) y = cos(x)*sqrt(a*x);
/* */if(x<=0) y = -3.1*x*x - log(abs(a-x));
/* */if(x >= 16.2) y = 2*x*x + 3.4*a*x*x;
/* */cout << "X = " << x << "Y = " << y;
/* */x += h;
/**/}while(x <=xk);
/**/system("PAUSE");
/**/return 0;
}

/*Програм ХХХ*/
#include "<"iostream">"
using namespace std;

float ab[19], c, p, r;
int n, i, j, s;

int main()
{
/**/cout << "Vvedite kolichestvo ilementov massiva";
/**/cin >> n;
/**/cout << "Vvedite ilementi massiva";
/**/s = 0;
/**/p = 0;
/**/for(i = 1; i < n; i++)
/**/{
/* */cout << "ab(" << i << ") = ";
/* */cin >> ab[i];
/**/}
/**/cout << "Ishodnii massiv";
/**/for(i = 1; i < n; i++)
/* */cout << ab[i];
/**/cout << endl;
/**/{
/**/c+=ab[i];
/**/p*=ab[i];
/**/}cout<<endl;
/**/if( p == 0) cout << "Net reshenia";
/**/else r = c/p;
/**/cout << "otnoshenie summi k proizvedeniyu" << r;
/**/system("PAUSE");
/**/return 0;
}

/*А третью я уже писал в том вопросе. */