Дано четырехзначное число n. Выбросить из записи числа цифры 0 и 5, оставив прежним порядок остальных цифр.

Uses
 CRT;
Var
 i,j,m,l:integer;
begin
repeat
 readln(i);
 if (i<1000) or (i>9999) then
  writeln('Ýòî íå ÷¸òûð¸õçíà÷íîå ÷èñëî.Ïîâòîðèòå ââîä.')
until (i>=1000) and (i<=9999);
m:=0;
j:=1;
repeat
 l:=i mod 10;
  if not(l in [0,5]) then
  begin
   m:=m+(l*j);
   j:=j*10;
  end;
 i:=i div 10;
until i=0;
writeln(m);
end.

Uses
 CRT;
Var
 i,j,m,l,k:integer;
begin
repeat
 readln(i);
 if (i<1000) or (i>9999) then
  writeln('Ýòî íå ÷¸òûð¸õçíà÷íîå ÷èñëî.Ïîâòîðèòå ââîä.')
until (i>=1000) and (i<=9999);
m:=0;
j:=1;
for k:=1 to 4 do
begin
 l:=i mod 10;
  if not(l in [0,5]) then
  begin
   m:=m+(l*j);
   j:=j*10;
  end;
 i:=i div 10;
end;
writeln(m);
end.

var
  n, ed, dec, sot, tic: integer;
 
begin
  write('Введите четырёхзначное число: ');
  read(n);
  ed := n mod 10;
  dec := n div 10 mod 10;
  sot := n div 100 mod 10;
  tic := n div 1000;
  case tic of
    1: write('1');
    2: write('2');
    3: write('3');
    4: write('4');
    6: write('6');
    7: write('7');
    8: write('8');
    9: write('9');
  end;
  case sot of
    1: write('1');
    2: write('2');
    3: write('3');
    4: write('4');
    6: write('6');
    7: write('7');
    8: write('8');
    9: write('9');
  end;
  case dec of
    1: write('1');
    2: write('2');
    3: write('3');
    4: write('4');
    6: write('6');
    7: write('7');
    8: write('8');
    9: write('9');
  end;
  case ed of
    1: write('1');
    2: write('2');
    3: write('3');
    4: write('4');
    6: write('6');
    7: write('7');
    8: write('8');
    9: write('9');
  end;
end.

program rrr;
var
  n,i,j: integer;    // Вспомогательные переменные для организации циклов.
  a: array[1..9] of Byte;   // Переменная для хранения массива.
  b: set of Byte = [1..4,6..9];  // Переменная для хранения множества.
  dig: integer;   //  Переменная для хранения значения вычисляемого числа
begin
  write('Введите число: ');
  readln(n);     //  Ввод исходного числа.
  i:= 0;         // Установка счетчика в ноль.
  while n > 0 do   // Условие работы цикла.
    begin
      inc(i);
      a[i]:= n mod 10;  // Разбиение числа по разрядам.
      n:= n div 10;
   end;
  dig:=0;    // Установка суммирующей переменной в ноль.
  j:= 1;     // Установка множителя счетчика в единицу.
  for i:= 1 to i do
   if a[i] in  b then   // Проверка на вхождение в множество.
     begin
       dig:= dig + a[i]*j; // Суммирование чисел.
       j:= j*10;           // Увеличение множителя на разряд.
     end;
   writeln(dig);
  Readln;
end.

var
  s, s1: string;
  i, j: integer;
 
begin
  write('Введите число: ');
  readln(s);
  for i := 1 to Length(s) do
  begin
    if (s[i] <> '0') and (s[i] <> '5')
      then s1 := s1 + s[i];
  end;
  j := strtoint(s1);
  writeln(j);
end.

var
  s, s1: string;
  i, j,code: integer;
 
begin
  write('Введите число: ');
  readln(s);
  for i := 1 to Length(s) do
  begin
    if (s[i] <> '0') and (s[i] <> '5')
      then s1 := s1 + s[i];
  end;
  val(s1,j,code);
  writeln(j);
end.