Найти сумму положительных нечетных чисел, меньших 100.

var i,sum:integer;

begin

sum:=0;

for i:=1 to 100 do

if i mod 2 = 1 then sum:=sum+i;

writelnI(sum);

end.