[Ghost]

uses
  crt;

var
  m, a, n, k: word;

begin
  clrscr;
  repeat
    write('vvedite chislo: ');
    readln(m);
    if m = 0 then writeln('error: chislo dolzhno byt naturalnym');
  until m > 0;
  repeat
    write('vvedite zifru: ');
    readln(a);
    if a > 9 then writeln('error: eto ne zifra - eto chislo');
  until a < 10;
  n := 0;
  while m <> 0 do begin
    k := m mod 10;
    m := m div 10;
    if k <> a then n := n * 10 + k;
  end;
  writeln('resultat: ', n);
  readkey;
end.