!\main program begin assign(f_out, 'res.txt'); rewrite(f_out); for j := 2 to 16 do begin if j = 10 then continue; writeln(j,'-ja sistema schislenia'); for i := 10 to 999 do begin s_dec := DecToOther(i, 10); s := DecToOther(i, j); if SwapSymbols(s) = s_dec then begin Writeln( 's(10) = ', s_dec:5, ' s(':5, j:2, ') = ', s:10); Writeln(f_out, 's(10) = ', s_dec:5, ' s(':5, j:2, ') = ', s:10); end; end; end; close(f_out); readln; end. \\