Cho biết đoạn chương trình sau thực hiện công việc gì?

a, Cho đoạn chương trình sau :
- Cho biết đoạn chương trình sau thực hiện công việc gì ? 
- Nếu nhập n bằng 10 có bao nhiêu lần lặp và lệnh writeln in ra màn hình có giá trị của S là bao nhiêu?
 Readln (n) ;
S:=S+0 ;
For i:=1 to n do
if i mod 2<> 0 then
  S:=S +i ;
Writeln (S);
b,  Viết thành 1 chương trình hoàn chỉnh cho đoạn chương trình trên