, с информатикой, вот такое вот задание: Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры. Пытаюсь написать программу, но что-то в ней не так - кто знает, подскажите, что именно, вот мой код для решения: 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.