Ответ:

var N, ans, digit: integer;

begin

 readln(N);

 for var i := 0 to 4 do

 begin

   digit := N div round(power(10, i)) mod 10;

   if digit mod 2 = 0 then

     digit := digit + 1;

   ans := ans + digit * round(power(10, i));

 end;

 writeln(ans);

end.

Объяснение:

• Считываем число

• В цикле 5 раз для каждой цифры:

• Определяем эту цифру целочисленным делением на 10 в соотв. степени и взятием остатка от деления на 10
• Если цифра четная, то добавляем к ней 1
• К переменной ответа добавляем новую цифру, домноженную на соотв. степень
• Выводим ответ