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.
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.