Строка: Получите на базе введеного пользователем числа другое число, в котором отсутствуют четные цифры.

program Zadanie46;
 var
   a: integer; // Переменная для хранения вводимого числа.
   dig: integer;  // Промежуточная переменная для разложения числа по разрядам.
   b,b1: integer; // Переменные для хранения значения результата вычислений.
   d10: integer; // Промежуточная переменная для восстановления разрядов числа.
begin
 writeln('Введите целое число');
 readln(a);
 b:=0;
 d10:= 1;
 while a > 0 do
 begin
  dig:= a mod 10; // Разложение числа на цифры по разрядам.
  a:= a div 10;
  if dig mod 2 = 0 then  // Проверка цифры на условие четности.
   begin
     b:= b + dig*d10;  // Создание нового числа из цифр, увеличенных на десятичный разряд.
     d10:=d10*10;
   end;
 end;
b1:=b*2; // Удвоение полученного числа.
// Вывод результатов на экран.
writeln('Вычисленное число: ',b);
writeln('Удвоенное вычисленное число: ',b1);
readln;
end.