Перевести код с Паскаля на С

program kkr11;
Uses crt;
var j,n:integer;
a,b,e,I,I2,x,h,f :real;
begin
  writeln('Данная программа предназначена для вычисления значения интеграла на ');
  writeln('интервале [a, b] для функции, заданной графически. ');
  writeln('Значение интеграла вычисляется приближённо по итерационной формуле  ');
  writeln('левых прямоугольников.');
repeat
  writeln('Введите значение нижней и верхней границы интервала a и b, где a<b  ');
  readln(a,b);
until (a<=b);
writeln('Укажите количество разбиений интеграла n>0 ');
readln(n);
repeat
  writeln('Укажите точность вычислений е>0 ');
  readln(e);
until e>0;
I:=0;
repeat  {Цикл вычисления значения интеграла с точностью до е}
 begin
  h:=(b-a)/n; {Нахождение величины шага между двумя соседними точками разбиения}
  f:=0;
  for j:=1 to n do        {Проверяем, на каком отрезке будем искать значение Х}
   begin
    x:=a+h*(j-1);
      begin
       F:=F+ln(x)/(x*sqrt(1+ln(x)));
    end;
    I2:=I;  {Сохранение предыдущего значения интеграла}
    n := n*2;
    I:=f*h;{Вычисляем значение интеграла по итерационной формуле левых прямоугольников}
   end;
   end;
 until abs(I2-I)<=e;
writeln(I:5:3);  {Вывод ответа}
end.
{F:=ln(x)/(x*sqrt(1+ln(x)));}