Перевод программы с Pascal в C++ (2прога)

[ProgFrog]

Помогите пожалуйста !!!!!!!!
program KP4;
uses Crt;
const
k=4; a1=3.7718; a2=5,5168; a3=3,5245; r=0.221;
var
x,d,l,p2,q2,u,v:real;
y,m,f,s0,s1:real;
label
l_1,l_2;

BEGIN
ClrScr;
writeln(Введите x, d, l');
readln(x);
readln(d);
readln(l);
writeln(' y m f s0 s1 ');
writeln('----------------------------------------------');
y:=x;
REPEAT
p2:=a3*r*(3-r*r)*y*y*y+a2*(r*r-1)*y*y-a1*r*y+1;
q2:=a3*(3*r*r-1)*y*y*y-2*a2*r*y*y+a1*y;
u:=k*p2/(p2*p2+q2*q2);
v:=-k*q2/(p2*p2+q2*q2);
if u=0 then goto l_1;
f:=ArcTan(v/u);
if u>0 then goto l_2;
f:=-3.14159+f;
l_2:m:=sqrt(u*u+v*v);
s0:=(-y*(r*r+1)/m)*sin(f);
s1:=-(r*sin(f)+cos(f))/m;
f:=180*f/3.14159;
writeln(y:5:2,' ',m:7:3,' ',f:8:3,' ',s0:7:3,' ',s1:7:3);
l_1:y:=y+d;
UNTIL y>=l;
readln;
END.