Изъятие из целого числа нулей

[Sting95]

Написать программу на Паскале используя цикл while-do которая изымает нули из числа.

Должно выглядеть так:
Числа до изъятия нулей:
14.000543
и т.д.

Числа после изъятия нулей:
14.543
и т.д.

[Streletz]

Самостоятельные попытки были? Где Ваши наработки?

[ZX Spectrum-128]

Перевести число в строку - str
Пробежаться по ней циклом
Если очередной символ = 0 то удалить - delete
Перевести строку в число - val

Если нельзя использовать строки, то (для целых чисел, вариант в лоб)
Разбить число на цифры (например занеся их в массив)
Затем "склеить" число Обратно, исключив нули. Потребуются div, mod
Для дробного числа можно проделать ту же операцию переведя его в целое, например. Скорее всего, есть варианты проще.