Question

Паскаль
var
x, s, a: real;
i: integer;

begin
readln(x);

a := x;
s := a;

for i := 2 to 13 do
if i mod 2 = 1 then begin
a := a * (-1) * x * x / ((i - 1) * i);
s := s + a;
end;

writeln(s);
end.
Объясните это словами, срочно, помогите