{* Задача 132 *}

Unit ZADACH132;
Interface
Implementation
Begin
 writeln('Дано натуральное число n. Выбросить из записи числа все чётные цифры. ');
End.

Program zadach132;

Uses zadach132.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a  : String;
  d  : String;
  er : integer;
  b  : integer;
  i  : longint;
  j  : longint;
  k  : longint;
  g  : longint;
  c  : Array [1..10] Of String;
  f  : Array [1..10] Of longint;
Begin
  clrscr; {* Очистка экрана *}
  write('введите число ');
  readln(a);
  j := 0;
  k := 0;
  g := 0;
  For i := 1 To length(a) Do {* Увеличиваем i от 1 до length(a) с шагом 1 *}
  Begin
    val(a[i], b, er); {перевод элм. в число}
    If b Mod 20 Then
    Begin
      str(b, d); {перевод цифр в текст}
      j := j + 1;
      k := k + 1;
      c[j] := d; {запись букв в таб}
    End;
    
  End;
  For j := 1 To k Do {перевод букв в}
    val(c[j], f[j], er); {таб цифр}
  For j := 1 To k Do {* Переменная j увеличивается с 1 до k *}
    g := g * 10 + f[j]; {получ. числа из таб}
  write('полученное число ', g);
  readln; {* Ждем нажатия Enter *}
End.