Сколько есть натуральных чисел от 1 до 105, для которых верно утверждение: (последняя цифра числа четна и число кратно 3) или (число меньше 10)?

Program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.

Таких чисел 25, запустите программу и убедитесь сами.