Здравствуйте, Roland Deschain. Ваша программа работает правильно, но было бы лучше если бы Вы еще указали условие самой задачи. Только в программу желательно добавить следующие строчки:
uses crt; {стандартный модуль управления дисплеем и клавиатурой}
clrscr; {очистка экрана}
readkey; {задержка экрана, чтобы успеть просмотреть результат}
то есть Ваша программа будет выглядеть следующим образом:
Program Prog;

uses crt;

var a: array [0..20] of real;
i,d1,d2: integer;

function Element(i:integer):real;
begin
Element:=i/(sin(pi/12*i));
end;

procedure Sum;
var b: real;
begin
b:=0;
for i:= d1+1 to d2-1 do
begin
if a[i]>0 then
b:=b+a[i];
end;
writeln('Сумма положительных элементов: ',b:5:4);
end;

begin
clrscr;
write('Диапазон значений от ');
read(d1);
write('до ');
readln(d2);
write('Массив: ');
for i:= d1+1 to d2-1 do
begin
a[i]:=Element(i);
write(a[i]:5:4,' ');
end;
Sum;
readkey;
end.
а псевдокод я Вам пришлю сегодня попозже!

Здравствуйте, Roland Deschain.

Примерно вот такая блок-схема