Сначала определимся с алгоритмом вычисления. Предлагаю следующий способ реализации:
Код:
readln(n,x);
rez:=0;
for i:=1 to n do begin
x:=sin(x);
rez:=rez+x; end;
Теперь вам остается только определиться с типом интерфейса (командная строка (консольное) или графический (форма)), формой вывода и прописать определения переменных. Это уж вы вполне сможете реализовать самостоятельно.
З.Ы. Если эту задачу кто-то решает через массивы - так наверняка это супер-пупер гений какой-нибудь с претензией на оригинальность мышления