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

[ProgFrog]

Помогите пожалуйста !!!!!!!
program KP2;
uses Crt;
const
k=4; a1=3.7718; a2=5,5168; a3=3,5245; f=1;
n=3; h=0.05; w1=0.5; w2=7.5;
var
x,m1:real;
i,j,m:integer;
y,p,g:array[0..3] of real;

procedure pr_1;
begin
p[1]:=y[2];
p[2]:=y[3];
p[3]:=(k*f-y[1]-a1*y[2]-a2*y[3])/a3;
end;
BEGIN
ClrScr;
y[1]:=0; y[2]:=0; y[3]:=0; x:=0;
writeln(' x y ');
writeln('------------');
REPEAT
m1:=int(w1/h);
m:=trunc(m1);
for j:=1 to m do
begin
pr_1;
for i:=1 to n do
begin
g[i]:=y[i]+h*p[i]/4;
y[i]:=y[i]+2*h*p[i]/3;
end;
pr_1;
for i:=1 to n do
y[i]:=g[i]+3*h*p[i]/4;
x:=x+h;
end;
writeln(x:4:2,' ',y[1]:5:3);
UNTIL x>w2;
readln;
END