Выразите через базовые множества закрашенную область

Для перевода из двоичной в шестнадцатеричный надо код разделить на тетрады (на группы по 4 цифры):
0101 1101 1000 1010 1010 1111 0010 1010
Если слева недостаточно цифр до тетрады, то слева добавляем нули.
Далее переводим тетрады в шестнадцатеричный код с таблицы:
0000 => 0        0001 => 1        0010 => 2        0011 => 3        0100 => 4
0101 => 5        0110 => 6        0111 => 7        1000 => 8        1001 => 9
1010 => A       1011 => B        1100 => C       1101 => D        1110 => E
1111 => F
0101 1101 1000 1010 1010 1111 0010 1010 = 5D8AAF2A

Для перевода в восьмеричный код делаем аналогично, только на двоичный код делим на группы по 3 цифры:
001 011 101 100 010 101 010 111 100 101 010
И также если не хватает до 3-ех цифр, то слева добавляем нули.
Затем переводим по аналогичной таблице:
000 => 0      001 => 1      010 => 2      011 => 3
100 => 4      101 => 5      110 => 6      111 => 7
001 011 101 100 010 101 010 111 100 101 010 = 13542527452

Program rtr1;Uses crt;Var a,b,c,d,di,f,x1,x2:real;Begin Clrscr; Readln(a,b,c,d); f:=0; di:=sqr(2*a*b-2*c*d)-4*(a*a-c*c)*(b*b-d*d); if di>0 then  begin   x1:=((2*c*d-2*a*b)+sqrt(di))/(2*a*a-2*c*c);   x2:=((2*c*d-2*a*b)-sqrt(di))/(2*a*a-2*c*c);   if (abs(a*x1+b)=c*x1+d) then f:=f+1;   if (abs(a*x2+b)=c*x2+d) then f:=f+1;  end else if d=0 then              begin               x1:=(2*c*d-2*a*b)/(2*a);               if (abs(a*x1+b)=c*x1+d)then f:=f+1;             end             else writeln('Корней нет'); Writeln('Уравнение имеет ',f,' корней ');End.