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

reversedN := 0;
newN := 0;

while N <> 0 do
begin
digit := N mod 10;
N := N div 10;

if digit mod 2 = 0 then
digit := 0;
reversedN := reversedN * 10 + digit;

end;

while reversedN <> 0 do
begin
digit := reversedN mod 10;
reversedN := reversedN div 10;

newN := newN * 10 + digit;

end;

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