Viết chương trình tính tổng của các số tự nhiên chẵn từ 10 đến 30

program so;

var i,S:integer;

begin

readln(n);

S:=0;

for i:=10 to 30 do if i mod 2=0 then S:=S+i;

writeln(‘ tong cac so chan tu 10 den 30 la’, S);

readln

end.