4,какую функции выполняет инструменты x2 и x2

//Pascal ABC.NET v3.1 сборка 1172

Var
 f,s:text;
 st,sp:string;
 i:integer;
 c:char;
begin
 assign(s,'text1.txt');
 reset(s);
 while not Eof(s) do
 begin;
 readln(s,sp);
 st:=st+sp+chr(10)+chr(13);
 end;
 close(s);
 for i:=1 to length(st) div 2 do
  begin
   c:=st[i];
   st[i]:=st[length(st)-i+1];
   st[length(st)-i+1]:=c;
  end;
 assign(f,'text.txt');
 rewrite(f);
 write(f,st);
 close(f);
end.

Текст в файле text1.txt:

Simple text
1And another simple text
2New text

Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS

100110101011₂ = 2 475₁₀ = 4653₈ = 9AB₁₆

Объяснение:

100110101011₂ = 1 * 2¹¹ + 0 * 2¹⁰ + 0 * 2⁹ + 1 * 2⁸ + 1 * 2⁷ + 0 * 2⁶ + 1 * 2⁵ + 0 * 2⁴ + 1 * 2³ + 0 * 2² + 1 * 2¹ + 1 * 2⁰ = 2 048 + 256 + 128 + 32 + 8 + 2 + 1 = 2 475₁₀

100110101011₂ - делим на тройки начиная с конца и переводим в 10 СС

011₂ = 1 * 2¹ + 1 * 2⁰ = 2 + 1 = 3₁₀

101₂ = 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 4 + 1 = 5₁₀

110₂ = 1 * 2² + 1 * 2¹ + 0 * 2⁰ = 4 + 2 = 6₁₀

100₂ = 1 * 2² + 0 * 2¹ + 0 * 2⁰ = 4₁₀

записываем снизу вверх и получаем 8 СС

100110101011₂ = 4653₈

100110101011₂ - делим на четверки начиная с конца и переводим в 10 СС

1011₂ = 1 * 2³ + 0 * 2² + 1 * 2¹ + 1 * 2⁰ = 8 + 2 + 1 = 11₁₀

1010₂ = 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰ = 8 + 2 = 10₁₀

1001₂ = 1 * 2³ + 0 * 2² + 0 * 2¹ + 1 * 2⁰ = 8 + 1 = 9₁₀

В качестве цифр 16 СС используются цифры от 0 до 9 и латинские буквы от A до F.

А = 10₁₀   B = 11₁₀   C = 12₁₀   D = 13₁₀   E = 14₁₀   F = 15₁₀

записываем снизу вверх и получаем 16 СС (не забывая заменять числа от 10 до 15 на буквы)

100110101011₂ = 9AB₁₆