Программирование а Паскаль!!! СРОЧНОУбрать из числа все четные цифры!!!

Question

Программирование а Паскаль!!! СРОЧНО
Убрать из числа все четные цифры!!!

Answer 1

Var
  i:integer;
  s,x:string;
begin
write('Введите число: ');
readln(s);
for i:=1 to length(s) do
  if StrToInt(s[i])mod 2=1 then x:=x+s[i];
writeln(x);
end.