1. Дано натуральное число n. Переставить его цифры так, чтобы образовалось минимальное число, записанное теми же цифрами.

Var
  n:string;
  t:char;
  i,j,k:integer;
begin
write(Число: );
readln(n);
k:=length(n);
for i:=1 to k do
  for j:=i to k do
    if ord(n[j])         begin
         t:=n[i];
         n[i]:=n[j];
         n[j]:=t;
         end;
writeln(Минимальное число: ,n);
end.