Задача по информатике:Даны 3 целых числа.Вывести те числа,которые являются чётными.

program new; var x,y,z:integer; begin readln(x,y,z); if not odd(x) then writeln(x); if not odd(y) then writeln(y); if not odd(z) then writeln(z) end. или так program new; var x,y,z:integer; begin readln(x,y,z); if x mod 2=0 then writeln(x); if y mod 2=0 then writeln(y); if z mod 2=0 then writeln(z) end.