ользователем вводится некоторое натуральное число N , вычислить

[mimit]

Пользователем вводится некоторое натуральное число N , вычислить

var i,n:integer; s:real;
begin
writeln();
readln(n);
for i:=1 to n do
begin
s:=cos(n)+sin(n+1);
end;
writeln(s:3:2);

подскажите в чем проблема

[BDA]

var
  i, n: integer;
  s: real;
begin
  readln(n);
  s := 1;
  for i := 1 to n do
    s := s * (cos(i) + sin(i + 1));
  writeln(s:3:2);
  readln;
end.