Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);
1 Кб = 1024 байта = 8192 бита
1 Мб = 1024 Кб = 1048576 байта = 8388608 битов
1 Гб = 1024 Мб = 1048576 Кб = 1073741824 байт = 8589934592 бит
[4, "11331"]
[5, "3011"]
[6, "1433"]
[7, "1053"]
[8, "575"]
[9, "463"]
[10, "381"]
[11, "317"]
[12, "279"]
[13, "234"]
[14, "1d3"]
[15, "1a6"]
[16, "17d"]
[17, "157"]
[18, "133"]
[19, "111"]
[20, "j1"]
[21, "i3"]
[22, "h7"]
[23, "gd"]
[24, "fl"]
[25, "f6"]
[26, "eh"]
[27, "e3"]
[28, "dh"]
[29, "d4"]
[30, "cl"]
[31, "c9"]
[32, "bt"]
[33, "bi"]
[34, "b7"]
[35, "av"]
[36, "al"]
код на Ruby
for i in 4..36
p [i, 381.to_s(i)]
end