ПРОГРАММИРОВАНИЕ,ПАСКАЛЬ.РЕБЯТА,УМОЛЯЮ,ПОМОГИТЕ.

Задали написать программу на язвке паскаль:вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i

№1. программа на Паскале

program xxx;

  var n : integer;

        x : array[1..8] of integer;

begin

  for n:=1 to 10 do

    x[n]:=i/sin*i;

  wreteln('Последовательность Х:')

  for n:=1 to 8 do

      write(x[i]);

   readln

end.ФОРМУЛУ ПРОВЕРЬ СВОЮ,вроде так