Код
Program A7;
var c:char;
st1:string[5];
m,i,j:Integer;
Begin
readln(st1);
for i:=5 downto 2 do
begin
m:=1;
for j:=2 to i do
if ord(st1[i])>=ord(st1[m]) then m:=j;
c:=st1[i];st1[i]:=st1[m];st1[m]:=c;
end;
writeln(st1);
readln;
end.
Program A7;
var
st1: string;
T: char;
i, j: integer;
Begin
readln(st1);
for i := 1 to length(st1) do
for j := length(st1) downto i + 1 do
if st1[j - 1] > st1[j] then begin { < }
T := st1[j - 1]; st1[j - 1] := st1[j]; st1[j] := T
end;
{ Удаляем все дубликаты букв }
i := 2;
while i <= length(st1) do
if st1[i] = st1[i - 1] then delete(st1, i, 1)
else inc(i);
writeln(st1);
readln;
end.