Задали вот такую вот штуку...
Дано натуральное число 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));

var S1,S2:String;
i,j:Integer;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);

i:=0; //счетчик цикла
j:=0; //счетчик слов

S1:='Привет мой друг, дорогой и любезный'; //наша строка
S1:=S1+' '; //дописываю пробел в конец
writeln(S1); //вывожу на экран

for i:=1 to length(S1) do Begin //проход по строке
if S1[i]<>' ' then S2:=S2+S1[i] //если текущий символ не пробел, то составляю слово
else Begin //если же пробел
if length(S2)>5 then inc(j); //проверяю длину составленного слова и если там больше пяти букв, увеличиваю счетчик слов
S2:=''; //обнуляю слово
end;
end;
writeln(j); //вывожу число слов из более чем 5 букв.
readln;
end.

==============
минусы, разделители будут считаться за букву слова. (, - " @ и т.д.)


ваше почти.