216.348.1112.7610. если не ошибаюсь
С++
-------------------------
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20. Воть;) Хотя это не точно...
Var a, i: integer;
begin
readln(a);
for i:=2 to a do
if (a mod i = 0) and (i mod 2 = 0) then writeln(i);
end.