let func x : float  =
    (2.*x-3.)/((x-1.)**2.)

let rec teilor1 (x:float)(n:int) =
   if n=0 then -3.
   else -(3.+float(n))*x**float(n)+teilor1(x)(n-1)

// Нихуя не знаю как тут
let rec teilor2 (x:float)(n:int) =
    if (n=0) then -3.
    else 3.

for i in 0..10 do
    let x = 0.1+(0.6-0.1)*(float(i)/10.)
    printfn "%5.3f %5.3f %5.3f %5.3f" x (teilor1 (x)(10)) (teilor2 (x)(10)) (func x)