Найти сумму выражения Y=sin1+sin2+sin3+…sinN, при N=15 — Pascal(Паскаль)

program a;
Var
 i:byte;
 s,y:real;
begin
 s:=0;
 For i:=1 to 15 do {Цикл от 1 до 15}
 begin
  y:=sin(i);  {Берём синус от 1,2,3..15}
  S:=s+y;  {Этот синус суммируем через переменную S}
 end;
 Writeln('Cymma =' ,S:10:7);
 readln;
end.