var a,b,c: TVec; begin CreateIt(a,b,c); try a.SetIt(false,[0,1,10,-1,-10]); // a = [0, 1, 10, -1, -10]; b.SetIt(false,[0,1,PI,-1,-PI]); // b = [0, 1, Pi, -1, -Pi]; c.Rem(a,b); // c = [0, 0, 0.5752, 0, -0.5752] finally FreeIt(a,b,c); end; end;