Как убрать все нули из числа в Pascal
Поделить на 1000 !!!!!!!!!!!!! смотря какое число
нет надо выкинуть все нули независимо от числа