[Ghost]

uses
  crt;

var
  m: string;
  a: char;
  n: string;
  i: integer;

begin
  clrscr;
  write('vvedite chislo: ');
  readln(m);
  write('vvedite zifru: ');
  readln(a);
  n := '';
  for i := length(m) downto 1 do
    if m[i] <> a then
      n := n + m[i];
  writeln('resultat: ', n);
  readkey;
end.