Em hãy viết chương trình và đưa ra màn hình S S=2+4+6+…+200

Program tinh_tong;

Uses crt; 

Var S,i: integer; 

Begin 

S:=0;

For i:=1 to 200 do 

If i mod 2= 0 then

S:= S+i;

Writeln (‘Tong S la:’,S);

Readln 

End.