сколько раз исполнится цикл: for x:=1 to 15 do if x mod 2=1 then s:=s+1
Числа некратные 2 от 1 до 15: 1,3,5,7,9,11,13,15 - 8 раз.