Найти сумму нечетных чисел кратных 8 от 1 до 100

Хоть и тупо, и сумма нечетных чисел кратных 8 равна 0, вот решение на паскале:

var

i, s: integer;

begin

s:=0;

//проверяем каждое число от 1 до 100

for i:=1 to 100 do

//если остаток i на 2 не равен нулю

//и остаток i на 8 равен нулю, то s увеличиваем на i

if (i mod 2 0) and (i mod 8 = 0) then

inc (s, i) ;

writeln (s) ;

end.