как написать готовый код паскаль на с++??

[Gulnur10]

var N,i:integer;
R1,R2,A,AN:real;
Begin
write(`R1=`);readlen(R1);
write(`R2=`);readlen(R2);
write(`N=`);readlen(N);
A:=2*R1+R2; AN:=A;
if N>1 then begin
for i:=2 to N do begin
AN:=2*R1+AN*R2/*(AN+R2);
A:=AN;end;end;
writeln(`R summ=`,A);
End.

[Stilet]

{
 printf("R1="); double R1;scanf("%f",&R1);
 printf("R2="); double R2;scanf("%f",&R2);
 printf("N=");  double N; scanf("%f",&RN);
 double A=2*R1+R2,AN=A;
 if(N>1) for(int i=2;i<=N;A=AN) AN=2*R1+AN*R2/*(AN+R2);
 printf("R summ=%5.2f",A);
}

Подходит?