uses crt;
var n,m,k:longint;
a,c:byte;
begin
clrscr;
repeat
write('Введите натуральное число, не более 2 147 483 647 n=');
readln(n);
until(n>=1)and(n<=2147483647);
repeat
write('Какую цифру удалить? a=');
readln(a);
until a in [0..9];
m:=0;{новое число пока 0}
k:=1;{степень первой =1}
while n>0 do{пока число не ноль}
begin
c:=n mod 10;{отделяем с конца по одной цифре}
if c<>a then{если это не не заданная цифра}
begin
m:=m+c*k;{умножаем цифру на очередную стапень 10 и прибавлем к тому, что получилось раньше}
k:=k*10;{увеличиваем степень 10}
end;
n:=n div 10;{берем число без последней цифры и все повторяем, пока число не кончится}
end;
write(m);
readln
end.