помогите перевести на C#

[SERGO123]

type
  TValue = record
    X, Y: Extended;
  end;
  TValues = Array of TValue;
  TRealArray = Array of Extended;
 
function ncGetLagrange(Points: TValues; X: Extended): Extended;
var
  i, j, n: Integer;
  l1, l2: TRealArray;
begin
  n := High(Points);
  SetLength(l1, n + 1);
  SetLength(l2, n + 1);
  for i := 0 to n do
    l1[i] := Points[i].Y;
  for j := 1 to n do
    begin
      for i := 0 to n - j do
        l2[i] := (l1[i] * (Points[i + j].X - X) - l1[i + 1] * (Points[i].X - X)) /
                 (Points[j + i].X - Points[i].X);
      SetLength(l2, High(l2));
      l1 := l2;
    end;
  Result := l1[0];
end;

[alexusankov]

Ух ты, уж год, код на паскале не читал.
Через часок приеду, сброшу пример.
Тут же элементарные операции, в чем же трудность?

[WorldMaster]

class TValue
    {
        public double X, Y;
    }

double ncGetLagrange(TValue[] Points, double X)
        {
            int i, j, n;
            double[] l1, l2;

            n = Points.Length;

            l1 = new double[n + 1];
            l2 = new double[n + 1];

            for (i = 0; i < n; i++) l1[i] = Points[i].Y;


            for (j = 1; j < n; j++)
            {
                for (i = 0; i < n - j; i++)
                    l2[i] = (l1[i] * (Points[i + j].X - X) - l1[i + 1] * (Points[i].X - X)) / (Points[j + i].X - Points[i].X);

                l2 = new double[l2.Length];
                l1 = l2;
            }
            return l1[0];
        }

Че то типа этого. На правильность алгоритма не проверял.