из Паскаля в С++ кто сможет перевести? Пожалуйста

program Gauss; 
cоnst n=3; n1=4; 
type stroka=array[1..n1] of real; 
matr1=array[1..n] of stroka; 
stolbes=array[1..n] of real; 
var a: matr1; x: stolbes; 
maxabs,u: real; i,j,l,k: integer; 
begin //ввод массива коэфициентов уравнении 
for i:=1 to n do 
for j:=1 to n+1 do read (a[j]); 
for i:=1 to n do 
begin //выбор уравнения с наибольшим по модулю коэфициентом исдвиг на первое место 
maxabs:=abs(a[j]); k:=i; 
write('max=',maxabs); 
for l:=i+1 to n do 
if abs(a[l]) > maxabs then 
begin 
maxabs:=abs(a[j]); 
write('замена'); 
k:=l 
end; 
if k<>i then 
for j:=i to n+1 do // перестановка i-го и k-го уравнения 
begin 
u:=a[j]; a[j]:=a[k][j]; 
a[k][j]:=u 
end; 
u:=a; // деление i-го уровня на коэф при xi 
for j:=i to n+1 do a[j]:=a[j]/u; 
for l:=i+1 to n do 
begin // этап исключения xi из l-го уровнения с помощью i-го 
u:=a[l]; 
for j:=i+1 to n+1 do 
a[l][j]:=a[l][j]-a[j]*u 
end; 
// прямой ход завершен 
end; 
// вычесляется значения остальных неизвестных , начиная с с(n-1)и кончая первой 
x[n]:=a[n][n+1]; 
for i:=n-1 downto 1 do 
begin 
x:=a[n+1]; 
for j:=i+1 to n do 
x:=x-a[j]*x[j] 
end; 
for i:=1 to n do writeln (x) 
end.