40 ! в вещественном числе все четные цифры замените на 0. результат выведите на экран.

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var r:=ReadReal('Введите целое вещественное число');
  var s:=BigInteger(r).ToString;
  for var i:=1 to s.Length do
    if s[i] in ['2','4','6','8'] then s[i]:='0';
  r:=real.Parse(s);
  Writeln(r);
end.

Пример
Введите целое вещественное число 123456789101112
103050709101110