... 2]; i := l; j := r; repeat while Val[t, i] < x do Inc(i); while Val[t, j] > x do Dec(j); if i <= j then begin Tg := Val[t, i]; Val[t, i] := Val[t, j]; Val[t, j] := Tg; Tg := Pos[t, i]; ... Uses crt; Var k: longInt; (*--------------------------------------------*) Function chuso(NN: longInt):char; Var st:string[10]; dem,M:longInt; Begin dem:=0; M:=1; Repeat str(M,st); dem := dem+length(st); ... do Inc(Sum, Val[1, n - i + 1] * Val[2, i]); for i := 1 to n do Val[1, Pos[1, n - i + 1]] := Pos[2, i]; Assign(hf, Out); Rewrite(hf); Writeln(hf, Sum); for i := 1 to n do Writeln(hf, Val[1, i]);...