uses crt;
var n,m,k:longint;
c:0..9;
begin
clrscr;
write('Число=');
readln(n);
m:=0;k:=1;
while n>0 do
begin
c:=n mod 10;
if c mod 2=0 then c:=2;
m:=m+c*k;
k:=k*10;
n:=n div 10;
end;
write('Число с заменой четных цифр на 2=',m);
readln
end.