Есть решение на паскале нужно перевести на с++ Помогите пожалуйста

[Z4belin]

program Proc18;

function CircleS(R: Real): Real;
begin
CircleS:=3.14*sqr(R);
end;

var
r1,r2,r3: real;
begin
Write('Введите радиус первой окружности: ');
Readln (r1);
Write('Площадь первой окружности равна: ');
Writeln(CircleS(r1));

Write('Введите радиус второй окружности: ');
Readln (r2);
Write('Площадь второй окружности равна: ');
Writeln(CircleS(r2));

Write('Введите радиус третьей окружности: ');
Readln (r3);
Write('Площадь третьей окружности равна: ');
Writeln(CircleS(r3));
Readln;
end.

program Proc19;

Function RingS(R1,R2:Real):Real;
begin
RingS:=3.14*(sqr(R1)-sqr(R2))
end;


var
R1,R2:Real;
i:integer;
begin
for i:=1 to 3 do
begin
Write('R1 :');
Readln(R1);
Write('R2 :');
Readln(R2);
Writeln(RingS(R1,R2));
end;
end.

program Proc20;
Function TriangleP(a,h:Real):Real;
begin
TriangleP:=2*sqrt(sqr(a/2)+sqr(h))+a
end;


var
a,h:Real;
i:integer;

begin
for i:=1 to 3 do
begin
Write('a :');
Readln(a);
Write('h :');
Readln(h);
Writeln(TriangleP(a,h));
end;
end.

program Proc21;

Function SumRange(A,B:Integer):Integer;
var
i,TempSum:Integer;
begin
TempSum:=0;
For i:=A to B do
begin
TempSum:=TempSum + i;
end;
SumRange:=TempSum;
end;

var
A,B,C:Integer;

begin
Write('A :');
Readln(A);
Write('B :');
Readln(B);
Write('C :');
Readln(C);

Writeln(SumRange(A,B));
Writeln(SumRange(B,C));

[Аватар]

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.