Найти все четные числа, которые не делятся на 6 в диапазоне от 0 до N. Вывести их на экран​

Да

Смотрите

Одна из этих задач

Можно скрин файлов?

var i, N: integer;begin write('Введите N:'); read(N); for i := 0 to N do if((i mod 2 = 0) and (i mod 6 <> 0)) then write(i, ' ');end.

begin

 readinteger('Введите N:').Range().Where(x -> (x mod 2 = 0) and (x mod 6 <> 0)).Print(',');

end.