Программа на паскале. Ввести натуральное число N, удалить из него все значащие нули, образовав новое число.
Пример: вводим 46008090, выводим 4689
Помогите пожалуйста, заранее благодарю)

Если не использовать строки, то решение может быть таким:var n,k,st:integer;beginwrite('n='); readln(n);k:=0; st:=1;while n>0 do begin if n mod 10 <> 0 then   begin  k:=(n mod 10)*st+k;  st:=st*10;  end; n:=n div 10; end;writeln(k);end.