var c,n,nec:integer; //c cifra de eliminat
//n numarul initial
//nec numar cu cifre eliminate
rang:integer;
begin
writeln('numarul initial:');
read(n);
writeln('Cifra de eliminat :');
read(c);
nec:=0;
rang:=1;
while n>0 do
begin
if (n mod 10) <> c then
begin
nec:=rang*(n mod 10) + nec ;
rang:=rang*10;
end;
n:=n div 10;
end;
writeln('Numarul obtinut prin eliminare cifra ',c,' este ',nec);
readln;
end.
