Ответ:

Если так как я уточнял, то вот код

Объяснение:

Program zzz;

Var a,b,a1,a2,a3,otv:integer;

begin

write ('введите трёхзначное число ');

read(a);

a1:=a div 100; //1 число

a2:=(a mod 100) div 10; //2 число

a3:=a mod 10;//3 число

write ('введите цифру, которую нужно убрать: ');

read(b);

if b=1 then  

        begin

         otv:=a2*10+a3;

         write ('полученное число ',otv);

        end;

if b=2 then  

        begin

         otv:=a1*10+a3;

         write ('полученное число ',otv);

        end;

if b=3 then  

        begin

         otv:=a1*10+a2;

         write ('полученное число ',otv);

        end;

End.