переведите в с++

const
n0=100; {вершины}
inf=32000;{бесконечность}
var
m:integer; {рёбра}
n:byte; {вершины}
A:array[1..n0,1..n0] of real; {матрица весов}
DOP:array[1..n0] of boolean; {допустимость вершины}
X,OptX:array[1..n0] of byte; {маршруты}
Cost,OptCost:real; {стоимости}
r:real;
i,j,k:byte;
 
procedure path(i:byte);
var u,j,v:byte;
begin
for u:=1 to n do
if (A[X[i-1],u]<inf) AND (Cost+A[X[i-1],u] < OptCost) then
begin
if (i=n+1) AND (u=1) then {новый минимум}
begin
for j:=1 to n do OptX[j]:=X[j];
OptCost:=Cost+A[X[i-1],u];
end
else if DOP[u] then {продолжаем текущий маршрут}
begin
X[i]:=u; DOP[u]:=false;
Cost:=Cost+A[X[i-1],u];
path(i+1);
{возврат, удаляем u из текущего маршрута}
DOP[u]:=true;
Cost:=Cost-A[X[i-1],u];
end;
end;
end;
 
BEGIN {main}
for i:=1 to n0 do
for j:=1 to n0 do
A[i,j]:=inf;
 
for i:=1 to n0 do
begin
DOP[i]:=true;
X[i]:=0;
OptX[i]:=0;
end;
Cost:=0; OptCost:=inf;
 
Write('Vvedite kolvo vershin n= '); readln(n);
Write('Vvedite kolvo reber m= '); readln(m);
for i:=1 to m do
begin
Write('Vvedit cherez probil vershini i ves ',i,' rebra: '); Readln(j,k,r);
A[j,k]:=r;
A[k,j]:=r;
end;
X[1]:=1; DOP[1]:=false;
path(2);
if OptCost< inf then
begin
Writeln('OptCost', OptCost:5:2);
for i:=1 to n do
write(OptX[i],' ');
writeln;
end
else
writeln('No solution');
readln;
END.