Ребята переведите с Паскаля на си++ п л с - C++ - Ответ 2766573

Program Proc44;
function Arctg(x,e:real):real;
var 
dx,y,t:real;
i:integer;
begin
dx:=x;
y:=0;
i:=0;
t:=1/(2*i+1);
while abs(dx)>e do
begin
y:=y+dx*t;
inc(i);
dx:=-dx*x*x;
t:=1/(2*i+1);
end;
Arctg:=y;
end;
var 
x,e:real;
begin
repeat
writeln('Введите значение аргумента |x|<1 :');
readln(x);
until abs(x)<1;
repeat
writeln('Введите точность вычислений e>0 :');
readln(e);
until e>0;
writeln('Приближенное значение Arctg(',x:0:2,')=',Arctg(x,e):8:5);
writeln('Вычисленное значение Arctg(',x:0:2,')=',Arctan(x):8:5);
end.

Program Proc53;
function IsLeapYear(Year:integer):boolean;
begin
if(Year mod 4 = 0) and (Year mod 4000 <> 0) and
((Year mod 100 <> 0) or (Year mod 400 = 0))then IsLeapYear:=true
else IsLeapYear:=false;
end;
function MonthDays(M,Y: Integer): Integer; 
const 
DayInMonth : array[1..12] of Byte = (31,28,31,30,31,30,31,31,30,31,30,31);
 
begin 
if(IsLeapYear(y)=false)then
MonthDays:= DayInMonth[M]
else
begin
if(M=2)then MonthDays:= DayInMonth[M]+1
else
MonthDays:= DayInMonth[M]
end;
end;
var
i,M,Y:integer;
begin
for i:=1 to 5 do
begin
write('Введите год и месяц:');readln(Y,M);
writeln('MonthDays(',M,',',Y,')=',MonthDays(M,Y));
end;
end.

Program Proc59;
function Leng(xA, yA, xB, yB:real):real;
begin
Leng:=(Sqrt(sqr(xB-xA)+sqr(yB-yA)));
end;
 
function Perim(xA, yA, xB, yB, xC, yC:real):real;
begin
Perim:=(Leng(xA, yA, xB, yB)+Leng(xA, yA, xC, yC)+Leng(xC, yC,xB, yB))/2;
end;
 
function Area(xA, yA, xB, yB, xC, yC:real):real;
var
P:real;
begin
P:=Perim(xA, yA, xB, yB, xC, yC);
Area:=Sqrt(p*(p-Leng(xA, yA, xB, yB))*(p-Leng(xA, yA, xC, yC))*(p-Leng(xB, yB,xC, yC)));
end;
 
function Dist(xP, yP, xA, yA, xB, yB:real):real;
var S,D:real;
begin
S:=Area(xP, yP, xA, yA, xB, yB);
D:=Leng(xA, yA, xB, yB);
Dist:=2*S/D;
end;
var
i:byte;
xA, yA, xB, yB, xC, yC:real;
begin
for i:=1 to 3 do
begin
write('Введите точки (Xa,Ya)');readln(xA, yA);
write('Введите точки (Xb,Yb)');readln(xB, yB);
write('Введите точки (Xc,Yc)');readln(xC, yC);
writeln('Dist(',xA,',', yA,',',xB,',',yB,',',xC,',', yC,')=',Dist(xA, yA, xB, yB, xC, yC));
end;
end.