Программирование циклических алгоритмов. Вычисление бесконечных сумм - PascalABC.NET

Program z_5;
    var 
    x,i,n:integer;
    s,a:real;
begin 
    write('введите n='); readln(n);
    write('введите x='); readln(x);
    a:=1; s:=a; 
    for i:=1 to n-1 do 
    begin
        a:=a*x*sin (i*(pi/4));
        writeln(a);
        s:=s+a;
    end;
    writeln ('Сумма элементов s=',s);
end.