[Pascal] Есть код для табуляции функции. Помогите понять, как он работает.

[Kris_Chernova]

program vetr; 
const n=40; 
h=0.05; 
var i: byte; 
x,y,s, slag: real; 

begin 
writeln('! x ! y ! s !'); 
x:=-Pi/5; 
while x< (4*Pi/5)+h do 
begin 
y:=x/2; 
s:=1; 
slag:=0; 
for i := 1 to n do 
begin 
if i mod 2 = 0 then 
slag:= -sin(x*i)/i else 
slag := sin(x*i)/i ; 
s:=s+slag; 
end; 
writeln(' ! ',x:7:2, ' ! ',y:7:3, ' ! ',s:7:3,' ! '); 
x:=x+h; 
end; 
readln 
end.

Объясните, пожалуйста, действие программы
Условие представлено ниже. Нужно было составить программу табулирования y и s.

[newerow1989]

const n=40; 
      h=0.05;
var i: byte;
    x,y,s, slag: real;
begin
   writeln(' !    x    !    y    !    s    !');
   Writeln(' !---------!---------!---------!');
   x:=-Pi/5;//начальное значение
   while x< (4*Pi/5)+h do//прокрутить цикл до конечного значения
   begin
      y:=x/2;//и так понятно
      s:=1;//почему с 1, а не с 0?
      slag:=0;//эту строчку можно и не писать
      for i := 1 to n do
      begin
         if i mod 2 = 0 then//проверка на четность
            slag:= -sin(x*i)/i else
            slag := sin(x*i)/i ;//и так понятно
         s:=s+slag;//увеличивает s (суммирует)
      end;
      writeln(' ! ',x:7:2, ' ! ',y:7:3, ' ! ',s:7:3,' ! ');//и так понятно
      x:=x+h;//переходим к следующему шагу для вычисления
   end;
   readln; 
end.