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

Хоть и тупо, и сумма нечетных чисел кратных 8 равна 0, вот решение на паскале:vari, s: integer;begins:=0;//проверяем каждое число от 1 до 100for 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.