Вычислить сумму ряда

var
  k, n: integer;
  sk, fk, s: real;
begin
  s := 0;
  fk := 1;
  for k := 1 to 10 do
    begin
      sk := 0;
      for n := 1 to k do sk := sk + sin(k * n);
      fk := fk * k;
      s := s + sk / fk
    end;
  writeln('S = ', s:0:15);
  readln
end.