Перевод кода (Pascal -> C++)

Program  Primer4;
  Label 1,2,3,4,5,6,7,8,9,10,11,12,19,20,21,22,23,24,25,27,30;
  const n=3; m=5;
  var  i,j,k,s,r,q,n1 :integer;
      delta, x,c : array [1..m] of real;
      a: array [1..n,1..m] of real;
      t,d,F,p,g,z,v : real; 
      teta,b: array[1..n] of real;
Ввод исходных данных
  Begin
  c[1]:=1; c[2]:=2; c[3]:=-1; c[4]:=0; c[5]:=0; 
  a[1,1]:=-1; a[1,2]:=4; a[1,3]:=2; a[1,4]:=1; a[1,5]:=0; 
   a[2,1]:=1; a[2,2]:=1; a[2,3]:=2; a[2,4]:=0; a[2,5]:=1; 
  a[3,1]:=2; a[3,2]:=-1; a[3,3]:=2; a[3,4]:=0; a[3,5]:=0; 
    b[1]:=12; b[2]:=17;  b[3]:=4;
    
      r:=1;
     k:=1;
  1:  p:=a[k,k];  writeln('p=',p,'  ','k=',k);
       For j:=1 to m do begin g:=a[k,j];
     a[k,j]:=g/p;  end; g:=b[k];
     b[k]:=g/p; 
          i:=1;
 3:  if i=k then i:=i+1;  if i>n then goto 2;
         p:=a[i,k];
        z:=b[k];
     For j:=1 to m do 
      begin g:=a[k,j]; v:=a[i,j]; a[i,j]:= v-g*p end;
         b[i]:= b[i]-z*p;
          i:=i+1; if i<=n then goto 3;
 2:        writeln(b[1]:8:2, b[2]:8:2, b[3]:8:2); 
            For i:=1 to n do  
     writeln(a[i,1]:8:2, a[i,2]:8:2, a[i,3]:8:2, a[i,4]:8:2,  a[i,5]:8:2); 
       k:=k+1; if k<=n then goto 1;