Рассчитать первые 10 коэффициентов разложения функции y = sin(x) в ряд тейлора в окрестности точки x.

var ai: real;
    i,f: integer;
Begin
    ai := -1;
    f := 1;
    for i := 1 to 10 do begin  
        ai := ai * (-1) / f;  
        f:=f*(2*i-1)*i*2;
        WriteLn('A[',i,'] = ',ai,' * x^',2*i-1);
    end;
    Readln;
End.