, с информатикой, вот такое вот задание: Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.
Пытаюсь написать программу, но что-то в ней не так - кто знает, подскажите, что именно, вот мой код для решения:
program chislo;
var ch, xy, z: integer;
writeln('введите трёхзначное число:');
readln(ch);
writeln('введите цифру, которую нужно удалить из числа:');
readln(x);
if z=ch mod 10 then
begin
xy:=ch div 10;
writeln('полученное двухзначное число равно ', xy);
end;
else if z=(ch div 10) mod 10 then
begin
xy:=(ch div 100)*10+ch mod 10;
writeln('полученное двухзначное число равно ', xy);
else if z=ch div 100 then
begin
xy:=ch mod 100;
writeln('полученное двухзначное число равно ', xy);
end;
else writeln('такой цифры в числе нет');
end.

Есть вопросы?

• Как otvet5GPT работает?
  otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

• Сколько это стоит?
  Проект находиться на стадии тестирования и все услуги бесплатны.

• Могу ли я использовать otvet5GPT в школе?
  Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

• В чем отличия от ChatGPT?
  otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.