phần khai báo phần thân phần xuât thì bạn tự làm còn mình chỉ viết ý để làm thôi
vd6: For i:=1 to 17 do S:=S+1/i;
vd7: for i:=1 to 19 do if i mod 2=1 then S:=S+1/i;
vd8:FOr i:=2 to 14 do if i mod 2=0 then S:=S+i;
vd9:For i:=5 to 21 do if i mod 2=1 then S:=S+i;