Нужно написать программу, определяющую минимальное число палиндром, больше n.

Var       i, n, s, x: integer; begin       readln(n);               s : = 0;       for i : = 1 to n do         begin               readln(x);                   if (x mod 10 = 8) and (x mod 6 = 0) then                              s : = s + x;               end;               writeln('s = ', s); end.

Сначала переведём в десятичную  систему счисления, а затем в остальные из неё. в качестве цифр шестнадцатеричной  системы счисления используются цифры от 0 до 9 и латинские буквы от a до f. буквы a = 10, b = 11, c = 12, d = 13, e = 14, f = 15. b25₁₆   = 11*16²+2*16¹+5*16°  = 2816+32+5 = 2853₁₀ 2853/2 = 1426 (целое частное) + (1) - остаток 1426/2 = 713 + (0) 713/2 = 356  + (1)  356/2 = 178  + (0)  178/2 = 89  + (0)  89/2 = 44  + (1)  44/2 = 22  + (0)  22/2 = 11  + (0)  11/2= 5  + (1)  5/2 = 2  + (1)  2/2 = 1  + (0)  1 поднимаемся снизу вверх записывая слева направо. b25₁₆  =  101100100101₂ 2853/8 = 356 + (5) 356/8 = 44  + (4) 44/8 = 5  + (4) 5 b25₁₆  = 5445₈ c3₁₆   = 12*16¹+3*16⁰  = 192+3 = 195₁₀ 195/2 = 97 + (1) 97/2 = 48  + (1) 48/2 = 24  + (0) 24/2 = 12  + (0) 12/2 = 6  + (0) 6/2 = 3  + (0) 3/2 = 1 + (1) 1 c3₁₆  = 11000011₂ 195/8 = 24  + (3) 24/8 = 3  + (0) 3 c3₁₆  = 303₈