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

и еще кое-что нам задали...
"вводится цепочка латинских символов до появления символа ".".Необходимо вычислить частоту появления каждой буквы.
Мои попытки:
const
t='.';
var
a: array [1..100] of Char;
b: array [1..100,1..100] of Char;
i,j,l,n: Integer;

begin

Writeln ('vvedite bukvy');
while a[i]<>t do
begin
Readln (a[i]);
l:=l+1;
end;
l:=l-1;
for i:=1 to l do
for j:= i+1 to l do
begin
if a[i]=a[j] then
begin
b[i,1]:=a[i]; Inc(b[i,2]);
end;
end;
Write(b[i,j],' ');
Writeln;

readln;
end.

главным услоивем является ОТСУТСТВИЕ СТРИНГА!
Вот то, что у меня получилось. Получается ввести массив, а дальше не могу задать так, чтоб именно считало количество повторяющихся букв и выводило и сами символы, которые повторяются и их кол-во.
буду очень благодарна за помощь или подсказку, как это сделать.