Question

Если число четное, то заменить его нулем

Answer 1

if x mod 2 = 0 then x := 0;