Вычислить сумму ряда cos(n)/(n-1)! с позиции N до позиции M.

Var  i, N, M : word; 
 s : double; 
function fac(z : word) : longint;
begin
  if (z fac := 1
else 
   fac := fac(z - 1) * z;
end; 
begin   
repeat 
  writeln(введите N и M (от 3 до 36)); 
   readln(N, M);
  until (N >= 3) and (N    s := 0; 
 for i := N to M do
  begin   
 s := s + (cos(n)) / (fac(i - 3)); 
end;   
 writeln(сумма ряда на интервале [, N, ,, M, ] = , s)
end.