{* Задача 131 *}

Unit ZADACH131;
Interface
Implementation
Begin
 writeln('Дано число n.Выбросить из него все единицы и пятёрки, оставив порядок цифр. Например: 527012 преобразуется в 2702 ');
End.

Program zadach131;

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