Текст программы на Паскаль

program lab3_II_N11;
var del,sum,sumsin: real;
i,j,n:integer;
begin
writeln('Лабораторная работа №3 частьII №11');
writeln('Дано натуральное число n.');
writeln('Вычислить:');
writeln(' 1 1 1 ');
writeln('---- + --------- +...+ -------------------');
writeln('sin1 sin1+sin2 sin1+sin2+...+sin n');
writeln('__________________________________________');

Дано натуральное число n. Вычислить:
1/sin1 + 1/sin1+sin2 + ... + 1/sin1+sin2+sin(n)

Лабораторная работа №3 частьII №11
Дано натуральное число n.
Вычислить:
1 1 1
---- + --------- +...+ -------------------
sin1 sin1+sin2 sin1+sin2+...+sin n
__________________________________________
Введите число n - 6
Ответ: -0.839128763256413