В данном целом числе N, заменить нулями все четные цифры в данном числе. Вывести полученное число.(Паскаль)

Предыдущий
вопрос Следующий
вопрос

program ReplaceEvenDigits
va
N, reversedN, digit, newN: integer
begi
write('Enter a number: ')
readln(N);

reversedN := 0
newN := 0;

while N <> 0 d
begi
digit := N mod 10
N := N div 10;

end;

while reversedN <> 0 d
begi
digit := reversedN mod 10
reversedN := reversedN div 10;

end;

writeln('Number with even digits replaced by zeros: ', newN)
end.