помогите написать программу

[Sveta-psv]

Описати функцію f(x) – число, яке складається з усіх непарних цифр натурального числа х. (Якщо всі цифри числа х парні, f(x)=0 ).скласти програму, яка друкує значення функції f(x1), …, f(xn) для набору чисел.


если не сложно полностью всю программу

[min@y™]

Перша частина завдання:

function Get_404(X: LongWord): LongWord;
var
  Result: LongWord;
begin
  Result:= 0;
  
  while X <> 0 do
    begin
      if X and 1 <> 0
        then Result:= 10 * Result + (X mod 10);
             
      X:= X div 10;
    end;
    
  Get_404:= Result;
end;

Увага! Писав на паркані!

[Stilet]

если не сложно полностью всю программу

Если не сложно - на русском пожалуйста в следующий раз (которого не будет)

[Sveta-psv]

постараюсь