udalenie

program udalenie;
var num,del:integer;
function Delete(num,del:integer):integer;
var itog,i:integer;
begin
  itog:=0;
  i:=1;
  while(num>0) do
  begin
    if(num mod 10<>del) then
    begin
    itog:=itog+(num mod 10)*i;
    i:=i*10;
    end;
    num:=num div 10;
  end;
  result:=itog;
end;
begin
read(num,del);
write(Delete(num,del));
end.
//вырезать цифру из числа