Задали вот такую вот штуку...
Дано натуральное число n. Вычислить (IMG:http://s1.ipicture.ru/uploads/20120928/wNvsx4YJ.jpg)

Я начала делать на паскале, но не знаю, правильно ли и что делать дальше. Сложность именно в дроби и в том, что и к знаменателю, и к числителю прибавляются выражения. Если кому-то не сложно, подскажите, что делать дальше, как конкретно сделать этот цикл.
Вот мое скромное
var
n,s,i: integer;

begin
writeln('введите n');
readln(n);
if n<=0 then
writeln('ошибка введите натуральное число');

s:=0;
for i:=1 to n do
begin
s:=s*(cos(i)+cos(i+1))/(sin(i)+sin(i+1));

Вводится строка символов. Определить, сколько в нем слов длиннее 5 букв. Слова при введении отделяются пробелами.

Вот результат моих мучений
Var s,s1:string;
j,i,k:integer;
Begin
write('введите строку');
readln(s);
k:=0;
for i:=1 to Length(s) do
Begin
if s[i]<>' ' then s1:=s1+s[i]; // вбиваем в S1 символы из S до пробела
if Length(s1)>5 then k:=k+1; // если длина s1 больше 5, то К увеличивается на единицу
s1:=' '; // обнуляем S1, чтобы заново вбить туда символы из S до следующего пробела.
End;
Writeln(k); // выводим количество слов, длинее пяти букв.
Readln;
End.

Подозреваю, что ошибка с обнулением S1. Если у кого-то есть идеи, как исправить это безобразие или решить задачу другим подходом, прошу откликнуться.