var

 ch:string;

 c:char;

  position:integer;

begin

 Writeln('Введите трехзначное число: ');

  readln(ch);

 Writeln('Введите цифру: ');

 readln(c);

 if pos(c,ch) >0 then

  position:=pos(c,ch);

 delete(ch,position,1);

 writeln(ch);

end.