кто может программу на паскале переписать на С или С++

program Lagrang;
const
   Nmax = 8;
 
type
    massiv = array[0..Nmax] of real;
    matrica = array[0..Nmax,0..Nmax] of real;
 
var
    X,Y: massiv;
    M: matrica;
    Z: Real;
     i,j,n,r : integer;
     h: real;
 
function PX(i,j:Integer):Real;
var P:Real;
   begin
      if M[i,j]=1 then
          P:=M[i,j]
          else begin
             if j-i=1 then begin
                P:=(Y[i]*(X[j]-Z)-Y[j]*(X[i]-Z))/(X[j]-X[i]);
                R:=Trunc(P*100);
                Writeln(R,'  ');                     
                 end
           else begin
                 P:=(PX(i,j-1)*(X[j]-Z)- PX(i+1,j)*(X[i]-Z))/(X[j]-X[i]); 
                 R:=Trunc(P*100);
                 Write(R,'  ');                 
                 end;
                 M[i,j]:=P;
                 M[j,i]:=1;
 {   
     Writeln('M[',i,',',j,']= ',trunc(M[i,j]*100));  
}
                end;
   PX:=P;
  {
Write('M[',i,',',j,']= ',trunc(M[i,j]*100),'  ');
}
end;
 
begin
   n:=7;
   x[0]:=1;
   h:=1;
   for i:=0 to n do begin
      x[i]:=x[0]+i*h;
      y[i]:=x[i]*x[i]*x[i]-20;
      Writeln('x',i,'= ',x[i]:3:3);
      Writeln('y',i,'= ',y[i]:3:3);
      end;
      repeat                                                        
      Write('x= ');
      ReadLn(Z);
      if Z=0 then
      begin  
         for i:=0 to n do
         begin
         for j:=0 to n do
         begin
         Write('M[',i,',',j,']= ',trunc(M[i,j]*100),'  ');
         end;
         writeln('');              
         end;
         readln(Z);
    end;
    for i:=0 to n-1 do
      if ((Z>X[i])and(Z<X[i+1]) or (Z<X[i])and(Z>X[i+1]) or (Z=0))
      then 
      break;
      WriteLn('y= ',PX(0,n):3:3);
      until 0>1;
  
end.