program tinhtong;
uses crt;
var i:byte;
s:integer;
begin
clrscr;
S:=0;
for i:=1 to 100 do
if (i div 2)*2<>i then S:=S+i;
write('Tong cac so le tu 1 den 100 la: ',s);
readln;
end.
Ngoài ra dùng mod cũng được, điều kiện của vòng lặp for là if i mod 2=1 then S:=S+i;