Cho đoạn chương trình : I :=1 While i<=50 do Begin If ( i mod 2) =0 then s :=s + i; I :=i +1 : End : Write ( 's=',S) ; Em hãy cho biết : Đoạn trên chương trình trên thực hiện công việc gì Kết quả xuất ra màn hình