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

program ct;

uses crt;

var S,i:integer;

begin

clrscr;

S:=0;

for i:=3 to 30 do

if (i mod 2=1) then S:=S+i;

writeln(‘tong cac so tu nhien le la’,S);

readln

end.