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