Pascal, цикл While или Repeat
Ввести число. Получить другое число, путем удаления единиц, сохранив порядок следования оставшихся цифр.