Напечатать в порядке убывания все цифры, входящие в запись данного натурального числа.

Паскаль.

Var st, s: string;

i, j: integer;

begin

s:='9876543210';

write ('число: ') ; readln (st) ;

j:=1;

while j<=length (s) do

begin

i:=1;

while i<=length (st) do

begin

if st[i]=s[j] then

begin

write (s[j],' ') ;

delete (st, i, 1) ;

i:=i-1;

end;

i:=i+1;

end;

j:=j+1;

if length (st) = 0 then break;

end;

end.