Traduction, Pascal en C

Bonjour,
jai trouvé une difficulté de traduir un programme ecrit en PASCAL en C
sil vous plait aider moi
voila le programme:

program COUREb (h);
var

a,c:real;
B0,H0,B,H,i,n:integer):real;

fonction champ (x1,x2,x:real;p:integer) : real;
begin
champ:=(x1*x2) + (x2*exp((1+2*p)*ln(x)));
end;

begin
clrscr;
writeln('entrer la valeur de la constante reelle a');
readln(a);
writeln ('entrer la valeur de la costante reelle c');
readln(c);
writeln('entrer la valeur de l"entier natureln');
readln(n);
clrscr;
hires;
hirescolor(15);
B:=0;
H:=0;
B0:=199;
H0:=H;

for i:=1 to 99 do
begin
B:=ROUND(199-99.5*i*0.02);
H:=ROUND((639/CHAMP(a,c,2)n))*champ(a,c,i*0.02,n));
DRAW(H0,B0,H,B,1);
B0:=B;
H0:=H;
end;
gotoxy(60,14);
writeln('Hmax=',CHAMP(a,c,2,n):5:0,'A/m');
draw(0,0,0,200,1);
draw(0,199,640,199,1);
gotoxy(2,1);
write('B');
gotoxy(80,24);
write('H');
gotoxy(60,15);
write('a= ',a:2:4);
gotoxy(60,16);
write('c= ',c:2:4);
gotoxy(60,17);
write('n= ',n);
REPEAT UNTIL KEYPRESSED;

END.