Var s:string;
ch:char;
n,i,j,err:integer;
begin
readln(n);
str(n,s);
for i := 1 to length(s)-1 do
for j := 1 to length(s)-i do
if s[j] > s[j+1] then begin
ch:=s[j];
s[j]:=s[j+1];
s[j+1]:=ch;
end;
val(s,j,err);
j*=9;
str(j,s);
n:=0;
for i:=1 to length(s) do begin
val(s[i],j,err);
n+=j;
end;
writeln(n);
<span>end.</span>
-------------------------
Read(a,b);
if (a>b) and (a>7) then <первое из что-то>
else <нижнее из что-то>
Ответ:
какой пробел ты не написал ни чего
Объяснение: